Identificar si es mayor a 18 años (EXAMEN)

program nombre;
uses wincrt;
var
edad:real;
begin
writeln('ingrese edad');
readln(edad);
if (edad>18) then
writeln('edad es mayor');
if (edad<18) then
writeln('edad es menor');
end.