Возвести в квадрат каждое число естественного ряда. Выводить все результаты до

Введем обозначения последующих величин: пусть s квадрат каждого из естественных чисел ряда, а i порядковый номер каждого из них. Начальные значения i и s будут равны 1 (ряд естественных чисел начинается с 1). Так как естественных чисел, которые мы будем возводить в квадрат, несколько, то будем использовать в программке оператор цикла с предусловием while. Программка на языке программирования Pascal ABC может смотреться так:

program zadacha;

uses crt;

var s, i: integer;

begin

s:=1; i:=1;

while i*ilt;=25 do begin

s:=i*i;

writeln(i=, i, ,s=, s);

i:=i+1;

end;

end.