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('условие неверно');
end.