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

1

Ответы и объяснения

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