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

program zadacha;vari: integer;st:real;beginwriteln('vvedite stoimost 1 kg');readln(st);for i:=1 to 10 dowrite(st*i:6:1,' ');end.  program zadacha_2;varN,i: integer;beginwriteln('vvedite N');readln(N);i:=1;whileN>(sqr(i)) dobegini:=i+1;if N<(sqr(i)) then writeln(sqr(i));end; end.