Алгоритм 0) Начало программы 1) Начало цикла от 1 до 20 2) Напечатать 25 // - квадрат числа 5 3) Конец цикла 4) Конец программы Программа Program Loop; var i:integer; begin for i:=1 to 20 do writeln(sqr(5)); end.