Дано положительное число x, являющееся возрастом человека в годах. Определить, человек совершеннолетний или нет. Выдать на экран соответствующее сообщение. ПАСКАЛЬ!!!
Program qwe; Uses crt; var x:real; begin clrscr; Write('Введите возраст: '); Readln(x); if x>18 then writeln('DA') else writeln('NET'); readkey; end.