Дано положительное число x, являющееся возрастом человека в годах. определить, человек совершеннолетний или нет. выдать на экран соответствующее сообщение.

Program qwe;
Uses crt;
var x:real;
begin
clrscr;
Write('Введите возраст: ');
Readln(x);
if x>18 then writeln('DA') else writeln('NET');
readkey;
end.