Помогите решить задачу по информатике. Дано двухзначное целое число. Проверить условие...

Question

Помогите решить задачу по информатике.
Дано двухзначное целое число. Проверить условие квадрат первой цифры меньше 25. Вывести сообщение.
даю 15 баллов

Answer 1

Program n1;
var a: integer;
begin
readln(a);
if (a div 10)*(a div 10)<25 then write('условие верно') else write('условие неверно');<br>end.