С клавиатуры вводится натуральное число k (1 ≤ k ≤ 9999), определяющее стоимость товара в копейках. Выразить стоимость в рублях и копейках.НА ПАСКАЛЕ ПЖ

var

r,k:integer;

begin

readln(k); //Ввод рублей

writeln(k div 100,' рублей ', k mod 100, ' копеек'); //Вывод стоимости товара в рублях и копейках

end.