25 на паскале дано целое число n (1< =n< =9999), определяющее стоимость товара в копейках . выразить стоимость в рублях и копейках. пример: 3 рубля 21 копейка

Program z1;
var n,r,k: integer;
begin
writeln('Введите число');
readln(n);
r:=n div 100;
k:=n-r*100;
writeln(n,' = ',r,' рубля ',k,' копейка');
end.