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

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

--------------------------------------------------------------------

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