Паскаль! Пожалуйста!

Question

Паскаль! Пожалуйста!

---

Answer 1

Var
    cost: integer;

begin
    readln(cost);
    writeln('Стоимость товара ',cost div 100,' руб. ',cost mod 100,' коп.');
end.