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

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

varx:integer;beginRead(x);if x < 18 then writeln('Несовершеннолетний')else  Writeln('Cовершеннолетний');end.