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