Program pr_1;
var
x,y,sum, umn: integr;
begin
write ('x=');
readln (x);
write ('y=');
readln (y);
sum:=x+y
umn:=x*y;
writeln ('sum=',sum);
writeln ('umn=',umn);
readln;
end

найдите ошибки

1) var e: array[1..11]of integer;       i,k: integer; begin   for i: =1 to 11 do   begin     e[i]: =random(17)-15;     write(e[i],' ');     if e[i] mod 5=0 then k: =k+1;   end;   writeln;   write('kol-vo elem krat 5: ',k); end. 2) var e: array[1..8]of integer;       i,s,k: integer; begin   for i: =1 to 8 do   begin     e[i]: =random(20)+1;     write(e[i],' ');     if e[i] mod 2=1 then s: =s+e[i];     if e[i] mod 3=0 then k: =k+1;   end;   writeln;   writeln('summa nechet elem: ',s,' kol-vo elem krat trem: ',k); end. 3) var e: array[1..14]of integer;       i: integer; begin   write('nachalni massiv: ');   for i: =1 to 14 do    begin     e[i]: =random(21)-10;     write(e[i],' ');   end;   writeln;   write('izmeneni massiv: ');   for i: =1 to 14 do   begin     if e[i]< 0 then e[i]: =0                 else e[i]: =e[i]*(-1);   write(e[i],' ');   end; end.