программа
Для чисел от 1 до n составьте программу возведения данных чисел в квадрат. n вводится с клавиатуры.
помогите, пожалуйста, даю 20 баллов, постарайтесь правильно составить:)

спасибо большое!))

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