Зачеркните неверно записанные операторы

var a: integer; beginreadln(a); write (a div 10); end.

var

s,s1: real;

k: integer;

begin

s: =10;

k: =1;

while s< 20 do

begin

s: =s*1.1;

k: =k+1;

end;

writeln('в ', k,' день он пробежит 20 км');

s: =10;

s1: =10;

k: =1;

while s< 200 do

begin

s: =s+s1*1.1;

s1: =s1*1.1;

k: =k+1;

end;

writeln('в ', k,' день суммарный пробег превысит 200 км');

end.

program primitive;

var a,b: integer;

begin 

read(a,b);

writeln(a mod b);

end.чему в школе то  

var a: array[1..10] of integer;

i,s: integer;

begin

  randomize;

  for i: = 1 to 10 do begin

      a[i]: = random(100);

      s: =s+a[i];

  end;

  writeln(s);

end.

var a: array[1..10] of integer;

i,mk,pk,s,p: integer;

begin

  randomize;

  p: =1;

  for i: = 1 to 10 do begin

      a[i]: = random(30+10)-10;

      if a[i]> =0 then begin

          pk: =pk+1;

          s: =s+a[i];

      end

      else begin

          mk: =mk+1;

          p: =p*a[i];

      end;

  end;

  writeln(pk,s,mk,p);

end.