program Main;
var
k, rub, kop: integer;
begin
writeln('Введите стоимость товара в копейках:');
readln(k);

rub := k div 100; // рубли
kop := k mod 100; // копейки

writeln('Стоимость товара составляет ', rub, ' рублей и ', kop, ' копеек');
end.