Пожалуйста посчитайте сделать программу по информатике задание такое : по возрасту пользователя определить является ли он совершенно летним?

//PascalABC.NET
//Версия 3.3, сборка 1611
begin
if (ReadReal('введите возраст:')<18) then write('несовершеннолетний') else write('совершеннолетний');
end.