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

Предыдущий
вопрос Следующий
вопрос

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

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

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