Составить программу возведения натурального числа в квадрат - Free Pascal

Формулировка задачи:

Помогите пожалуйста! Составить программу возведения натурального числа в квадрат, учитывая следующую закономерность: 1^2=1 2^2=1+3 3^2=1+3+5 4^2=1+3+5+7 ... n^2=1+3+5+7+9+...+(2n-1) Запрещается использовать операцию умножения, функции возведения в степень, экспоненты и логарифма. Ниже приведен рекомендуемый вид экрана программы во время ее работы. #1 Введите натуральное число -> 4 Квадрат числа 4 равен 16.

Решение задачи: «Составить программу возведения натурального числа в квадрат»

Листинг программы

var n,i,s:integer;
begin
 writeln('Введите натуральное число');
 write('->');readln(n);
 s:=0;
 for i:=1 to n do s:=s+2*i-1;
 writeln('Квадрат числа ',n,' равен ',s)
end.

Объяснение кода листинга программы

В начале программы объявляются три переменные: n, i, s типа integer (целое число).
Затем выводится сообщение Введите натуральное число и предложение для ввода числа ->.
После ввода числа, переменная s инициализируется значением 0.
Далее происходит цикл от 1 до n, где к переменной s прибавляется значение 2*i-1.
В конце программы выводится сообщение Квадрат числа [n] равен [s].