1) Выведите квадраты натуральных чисел не превосходящих 50,2) Если а=10, то выйти из…

program deece; const n=10; var i: integer; beginfor i: =1 to n doif i*i<50 then writeln (i,'*',i,'=',i*i); end.program deece; var a,b,c: integer; beginwriteln ('Введите числа: '); 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.