а)напишите
Срочна , плачу много баллов!

const g=9.8;
const d=1200;
var p,h: array [1..6] of real;
i:integer;
begin
for i:=1 to 6 do begin
write('h[',i,']= ');
readln(h[i]);
end;
for i:=1 to 6 do begin
p[i]:=d*g*(h[i]);
writeln('при h = ',h[i],' получается ',p[i]);
end;
end.