Дано положительное число x, являющееся возрастом человека в годах. Определить, человек...

Question

Дано положительное число x, являющееся возрастом человека в годах. Определить, человек совершеннолетний или нет. Выдать на экран соответствующее сообщение. ПАСКАЛЬ!!!

Answer 1

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