Var
a : integer;
begin
writeln('сколько вам лет');
readln(a);
if a>18 then
writeln('замечательно.Вы уже можете водить машину ')
else
writeln('вам нет 18  Водить вам рано');
end.

Var
    age: integer;

begin
    writeln('Сколько вам лет?');
    readln(age);
    if age >= 18 then
        writeln('Замечательно. Вы уже можете водить автомобиль')
    else
        writeln('К сожалению, водить автомобиль вам рано');
end.