program Mainvak, rub, kop: integerbegiwriteln('Введите стоимость товара в копейках:')readln(k);
rub := k div 100; // рублkop := k mod 100; // копейки
writeln('Стоимость товара составляет ', rub, ' рублей и ', kop, ' копеек')end.
program Main
va
k, rub, kop: integer
begi
writeln('Введите стоимость товара в копейках:')
readln(k);
rub := k div 100; // рубл
kop := k mod 100; // копейки
writeln('Стоимость товара составляет ', rub, ' рублей и ', kop, ' копеек')
end.