1)Выведите квадраты естественных чисел не превосходящих 50.2)Если а=10,то выйти из программки,а

Задачка 1.
Цикл for повторяется до тех пор, пока переменная number не добивается значения 51.
В теле цикла находится инструкция, которая выводит квадрат чисел на экран.

var
number: integer;

begin
for number:=1 to 50 do
writeln(Квадрат числа ,number:3, равен ,number*number:5,;);
end.

Задача 2.

var
number, sum_of_mumbers: real;

begin
writeln(Введите число:);
repeat
readln(number);
if numberlt;10 then
sum_of_mumbers:=sum_of_mumbers+number;
until number=10;
writeln(Сумма чисел, наименьших 10, введенных вами равна:);
writeln(sum_of_mumbers+number-10);
end.