Как в Паскале сделать так чтобы я ввёл год 0т 1 до 1000000 а программа
дописала типа: 1 год
2,3,4 года
5,6,7,8,9,10 лет
желательно с оператором case

[error]

LS
Не хватит! Введи 11 - должно быть лет.
Потом, strtoint - это уже Delphi

var
n:longint;
m:integer;
begin
writeln;
write('n=');
readln(n);
m:=n mod 100;
write(n);
if m div 10 =1 then
writeln(' let')
else
case m mod 10 of
1:writeln(' god');
2..4: writeln(' goda');
0,5..9: writeln(' let');
end;
readln;
end.

vor спасибо.
Но что такое n:longint

Длинное целое - от -2^31 до 2^31-1