Вывести 20 раз квадрат любого числа программа и алгоритм

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