program rub;
var a,b,c:integer;
var x:string;
begin
repeat
writeln('Введите число в промежутке 1-2000');
readln(a);
until (a>0) and (a<2001);
b:=a mod 10;
c:=a mod 100;
if (c>9) and (c<21) then x:=' рублей'
else begin
case b of
1: x:=' рубль';
2..4: x:=' рубля';
5..9,0: x:=' рублей';
end;
end;
writeln(a,x);
end.