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

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