var N:integer;

BEGIN

writeln('Введите возраст:');

readln(N);

if (N>=11) and (N<=14) then

writeln('Вам ',N,' лет') else

case (N mod 10) of

1:writeln('Вам ',N,' год');

2,3,4:writeln('Вам ',N,' года');

0,5,6,7,8,9:writeln('Вам ',N,' лет');

end;

end.

PascalВыделить код

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

Program Nothing;

uses

crt;

var

year:integer;

desytki:real;

begin

write('Введите ваш возраст (от 1 до 150 лет): ');

repeat

readln(year);

until (year<=150);

write('Вам ',year);

desytki:=(year mod 100 - year mod 10)/10;

if (desytki = 1) then

writeln(' лет.')

else if (year mod 10 = 1) then

writeln(' год.')

else if (year mod 10 = 2)or(year mod 10 = 3)or(year mod 10 = 4) then

writeln(' года.')

else if (year mod 10 = 5)or(year mod 10 = 6)or(year mod 10 = 7)or(year mod 10 = 8)or(year mod 10 = 9) then

writeln(' лет.');

end.