Ввод даты рождения и вывод возраста по годам - Pascal ABC

Формулировка задачи:

Помогите, пожалуйста, написать программу, которая при вводе года рождения выдает возраст по годам. Например, ввел я 1990, она должна будет написать: В 1991..2015 году Вам X год/года/лет. Листинг программы:
var
m,n,a,i:integer;
 
begin
write('Vvedite Vash god rozhdeniya: ');
readln(a);
for i:=a to 2015 do
writeln('V ',i,' godu',' Vam ',n);
n := 2015 - n;
m := n mod 10;
  if n in [11..14] then write(' let')
  else
  case m of
    1: write(' god');
    2,3,4: write(' goda');
    0, 5..9: write(' let')
  end;
readln;
end.

Код к задаче: «Ввод даты рождения и вывод возраста по годам - Pascal ABC»

textual
var
m,n,a,i:integer;
begin
write('Vvedite Vash god rozhdeniya: ');
readln(a);n:=0;
for i:=a+1 to 2015 do
 begin
  n:=n+1;m:=n mod 100;
  write('V ',i,' godu Vam ',n);
  if m in [11..20] then writeln(' let')
  else
   begin
    m:=n mod 10;
    case m of
     1: writeln(' god');
     2,3,4: writeln(' goda');
     0, 5..9: writeln(' let')
    end
   end
 end
end.

7   голосов, оценка 3.714 из 5


СОХРАНИТЬ ССЫЛКУ