Question

с клавиатуры вводится возраст мужчины. определить сколько лет ему осталось до пенсии или вывести на экран слово пенсионер если он достиг пенсионного возраста

Answer 1

Program p2;

Var a:integer;

Begin

Readln(A);

If a< {введите вместо этого пенсионный возраст } then

 Writeln('До пенсии осталось', {введите вместо этого пенсионный возраст }-a,’ лет.’) else

 Writeln(‘Пенсионер’);

End.