в 1кбайте 8байтов значит 1444:8=180,5
Сделал пока часть, остальное завтра допишу
Var a:array [1..20] of integer;
i,k,s:integer;
begin
k:=25;
for i:=1 to 20 do
begin
a[i]:=k;
k:=k+2
end;
for i:=2 to 20 do
if i mod 2 = 0 then s:=s+a[i];
writeln (a);
writeln (s)
end.