Дана программа, в которой не хватает строки. напишите пропущенную строку. program sqrtt; var v, r,h: real; begin writeln ( `введите высоту цилиндра` ); readln (h); writeln ( `введите радиус основания цилиндра` ); readln (r); v: =h*pi*r*r; writeln ( `объем цилиндра равен `,v, ` см кв.`); end.

1.

var n: integer; begin  cls;   for n: =1 to 10 do begin    write('n=',sqr(n)+5,' ');   end; end.

решить на паскале?

program seee; uses crt; var p,b,c: real; i,v: integer; beginclrscr; readln(p); writeln; writeln('mass price '); writeln; while v< > 1000 dobegin v: =v+50; writeln(v,'g ',v*p/1000: 2: 2); end; readkey; end.