{ Задание 1 }

var n: integer;
begin
  write('количество: '); read(n);
  if ((n mod 10) in [2..4]) and ((n mod 100) div 10 <> 1) then
  write(n,' штуки');
  if ((n mod 100) div 10 = 1) or (n mod 10 = 0) 
     or ((n mod 10 ) in [5..9]) then
  write(n,' штук');
  if (n mod 10 = 1) and ((n mod 100) div 10 <> 1) then 
  write(n,1' штука');
end.

{ Задание 2 }

var d,m,g,d1,m1,g1,n: integer;
begin
  write('текущая дата через пробел: день, месяц, год:  ');
  readln(d,m,g);
  write('дата рождения через пробел: день, месяц, год:  ');
  readln(d1,m1,g1);
  if d1>d then m:=m-1;
  if m1>m then g:=g-1;
  n:=g-g1;
  if ((n mod 10) in [2..4]) and ((n mod 100) div 10 <> 1) then
  write(n,' года');
  if ((n mod 100) div 10 = 1) or (n mod 10 = 0) 
     or ((n mod 10 ) in [5..9]) then
  write(n,' лет');
  if (n mod 10 = 1) and ((n mod 100) div 10 <> 1) then 
  write(n,' год');
end.