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

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

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