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

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