Программа Для чисел от 1 до n составьте программу возведения данных чисел в квадр?

Var n,i:integer;  begin write('n = '); readln(n); for i:=1 to n do writeln(i,'^2 = ',i*i); end. Пример: n = 5 1^2 = 1 2^2 = 4 3^2 = 9 4^2 = 16 5^2 = 25