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

Вопрос пользователя:

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

Илюха отвечает:

var a,res:integer;

begin

writeln(‘Введите число’);

readln(a);

res:=sqr(a);

writeln(‘Квадрат числа,’a’, равен,’res’,’);

readln;

end.