Написать программу на паскале, запрашивающую возраст пользователя, если ему не менее 18 лет сообщите ему что он имеет право голо
Написать программу на паскале, запрашивающую возраст пользователя, если ему не менее 18 лет сообщите ему что он имеет право голосовать, в противном случае вычислите через сколько лет ему предоставят это право.
Var c.d:byte; begin writeln ('Введите ваш возраст'); readln (c); D:=18-c if c>17 then writeln ('Вы достаточно взрослы, чтобы голосовать'); if c<18 then writeln ('Вы слишком малы, чтобы голосовать, вы сможете голосовать через',d,'лет'); readln; end.