PASCAL.Вводится массив из 10 элементов.Требуется выписать все 4знач.эл кратные 4,но не кратные 100 или кратные 1000.Пользователь

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 c<>0 do

begin

c:=c div 10;

k:=k+1;

end;

if (k=4) and (a[i] mod 4=0) and (a[i] mod 100<>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 (c>max) then max:=c;

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

end;

writeln (min, \' \', max);

end.