Срочно решите задачи!
по abc Pascal!!

program zadacha;

var

i: integer;

st:real;

begin

writeln(vvedite stoimost 1 kg);

readln(st);

for i:=1 to 10 do

write(st*i:6:1, );

end.

program zadacha_2;

var

N,i: integer;

begin

writeln(vvedite N);

readln(N);

i:=1;

while

Ngt;(sqr(i)) do

begin

i:=i+1;

if Nlt;(sqr(i)) then writeln(sqr(i));

end;

end.