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

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

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