PASCAL.Вводится массив из 10 элементов.Нужно выписать все 4знач.эл кратные 4,но не

1:

var 

k,c,i: integer;

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

begin

for i:=1 to 10 do

begin

readln (a[i]);

c:=a[i];

while clt;gt;0 do

begin

c:=c div 10;

k:=k+1;

end;

if (k=4) and (a[i] mod 4=0) and (a[i] mod 100lt;gt;0) or (a[i] mod 1000=0) then writeln (a[i]);

end;

end.

2:

var

i,a,c,min,max: integer;

begin

readln (a);

min:=a;

max:=a;

for i:=2 to 15 do

begin

readln (c);

if (cgt;max) then max:=c;

if (clt;min) then min:=c;

end;

writeln (min, , max);

end.