1) Выведите квадраты натуральных чисел не превосходящих 50.

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

program deece;

const n=10;

var i:integer;

begin

for i:=1 to n do

if i*i<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<10 then a:=a+b+c;

end.