Question

Квадраты Нужно вывести на экран таблицу квадратов. Input Со стандартного устройства ввода вводится 1 целое число – 1<=N<=100. Output Нужно выдать на стандартное устройство вывода N строк вида K^2 = M где M – одно целое число, являющееся квадратом числа K, и числа K идут по возрастанию от 1 до N. Sample Input 5 Sample Output 1^2 = 1 2^2 = 4 3^2 = 9 4^2 = 16 5^2 = 25

Answer 1

Var n,k:integer;
begin
readln(n);
for k:=1 to n do
 writeln(k,'^2 = ',k*k);
end.

Пример:
5
1^2 = 1
2^2 = 4
3^2 = 9
4^2 = 16
5^2 = 25