Advertisement
Guest User

Untitled

a guest
Oct 18th, 2019
96
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.32 KB | None | 0 0
  1. program check;
  2. var
  3.     a: integer;
  4. begin
  5.     writeln('Введите возраст');
  6.     readln(a);
  7.     if (a >= 18) then
  8.         writeln('Замечательно. Вы уже можете водить автомобиль')
  9.     else
  10.         writeln('К сожалению, водить автомобиль Вам рановато');
  11. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement