2)Если а=10,то выйти из программы,а если меньше,то посчитать сумму этих чисел.

Ответы:

program deece,

const n=10,

var i:integer,

begin

for i:=1 to n do

if i*i&lt,50 then writeln(i,*,i,=,i*i),

end.

program deece,

var a,b,c:integer,

begin

writeln(Введите числа:),

write(a=), read(a),

write(b=), read(b),

write(c=),read(c),

if a=10 then exit else if a&lt,10 then a:=a+b+c,

end.