скажите, в чем ошибка?

[aiktz]

Условие:
Дано натуральное число n (n<=100), определяющее возраст человека (в годах). Дать для этого числа наименования "год", "года", "лет".

Program reg;
var V:string;
a,y,n:integer;
begin
Writeln ('Введите возраст');
readln (n);
a:=(n div 10);
y:=n-a*10;
if (y>=5) and (y<=10) or (y=0) or (n>=11) and (n<=14) then V:='лет'
else if (y=1) then V:='год'
else if (y>=2) and (y<=4) then V:='года';
writeln ('вам ',n,' ',V);
readln;
end.

Когда проверяю, ошибку выдает......

[alex_fcsm]

у меня работает.А что за ошибка у Вас?

P.s. Оформляйте код нажатием на кнопочку # на панели редактирования
лучше вот так сделать

y:=n mod 10;

[Sazary]

У меня все работает. Что за ошибка?

[aiktz]

Сообщение от alex_fcsm

у меня работает.А что за ошибка у Вас?

P.s. Оформляйте код нажатием на кнопочку # на панели редактирования
лучше вот так сделать

y:=n mod 10;

ошибка здесь .....else if (y=1) then V:='год'
сама не знаю почему.....

[Sazary]

Сообщение от aiktz

ошибка здесь .....else if (y=1) then V:='год'

Текст ошибки приведите.

[aiktz]

Sazary

[aiktz]

а сама программа правильно составлена?

[Sazary]

Приложил рабочий исходник. Изменил только надписи (на транслит).
Сложно сказать, что у вас не так, т.к., как видите, у других работает.

[aiktz]

Спасибо огромное!