Решите пожалуйста 2 упражнение очень срочно надо!

var

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

i:integer;

begin

for i:=1 to 6 do read(a[i]);

for i:=1 to 6 do write(a[i], );

writeln;

for i:=1 to 6 do if a[i]gt;=1024 then writeln(a[i] div 1024);

writeln;

end.