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

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

Задать свой вопрос
1 ответ
Program n1;
var a: integer;
begin
readln(a);
if (a div 10)*(a div 10)lt;25 then write('условие верно') else write('условие ошибочно');
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт