Написать программу возведения в квадрат целого числа

Вместо "a := a * a" можно использовать "a := sqr(a)"



var
    a : integer;
begin
   write('Введите число: ');                                       //Вывод сообщения
   readln(a);                                                                //Ввод числа
   a := a * a;                                                                //Возведение в квадрат
   writeln('Введенное число в квадрате = ', a);    //Вывод результата
   readln;
end.