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

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

program zadacha;

uses crt;

var s, i: integer;

begin

s:=1; i:=1;

while i*i<=25 do begin

s:=i*i;

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

i:=i+1;

end;

end.