Question

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

Answer 1

var {раздел описания переменных}

 i:integer; {объявляем переменную}

begin {начало программы}

 i:=1; {присваиваем начальное значение}

 while sqr(i)<25 do  {пока квадрат переменной меньше 25 делаем следующее:}

   begin {операторные скобки, что бы выполнить несколько операций в цикле}

     writeln (sqr(i)); {выводим квадрат i}

     i:=i+1; {увеличиваем i на единицу}

   end; {закрываем операторные скобки}

end. {конец программы}