Перевод с языка паскаля на питон

Нужно написать код с паскаля на питон, не получается сделать перевод самому, буду благодарен.
https://studassistent.ru/pascal-abc/kopeyka-rubl-berezhet-pascal-abc - ссылка на сайт, если так удобнее

program Project1;

{$mode objfpc}{$H+}

uses
{$IFDEF UNIX}{$IFDEF UseCThreads}
cthreads,
{$ENDIF}{$ENDIF}
Classes, SysUtils, CustApp,Windows
{ you can add units after this };

var n,r,k:integer;
begin
SetConsoleOutputCP(CP_UTF8);
//в свойствах консоли выставить шрифт Lucida Console
repeat
write('Введите сумму в копейках от 0 до 100000 n=');
readln(n);
until(n>0)and(n<=100000);
r:=n div 100;
k:=n mod 100;
case r mod 100 of
11..19:write(r,' рублей ');
else
case r mod 10 of
1:write(r,' рубль ');
2..4:write(r,' рубля ');
else write(r,' рублей ')
end;
end;
case k of
11..19:write(k,' копеек');
else
case k mod 10 of
1:write(k,' копейка');
2..4:write(k,' копейки');
else write(k,' копеек')
end;
end;
readln;
end.