Должно быть 16 строчек, сделайте, !

Var     s: integer;     i: integer; begin s: =0; for i: = 30 to 80 do       if i mod 10 = 4 then s: =s+i; writeln('s = ',s); end. var     s,n,i: integer; begin s: =0; n: =0; for i: = 10 to 70 do       if i mod 10 = 5 then             begin             s: =s+i;             n: =n+1;             end; writeln('sr = ',s/n); end.

Program primer; uses crt; var a,b: real; begin         write('введите число а = ');         readln(a);         write('введите число b = ');         readln(b);         writeln;         if a< 0 then         writeln ('число а отрицательное');         if a> 0 then         writeln ('число а положительное');         if a=0 then         writeln ('число а равно нулю');         if b< 0 then         writeln ('число b отрицательное');         if b> 0 then         writeln ('число b положительное');         if b=0 then         writeln ('число b равно нулю'); end.