https://pastein.ru/t/5S

  скопируйте уникальную ссылку для отправки

Загрузка данных


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.