Задание 1. Некоторая сумма денег выражена в копейках, например 317,
5050, 100. Записать данную сумму в гривнах и копейках, т. е. в виде: 3 грн. 17
коп., 50 грн. 50 коп, 1 грн. 00 коп. (Количество копеек всегда выражается
двумя цифрами)

спасибо большоее

var s,g,k:integer;beginwriteln('Введите сумму (в копейках):');readln(s);g:=s div 100;k:=s mod 100;write(g,' грн. ');if k=0  then writeln('00 коп.') else if k<10 then writeln('0',k,' коп')              else writeln(k,' коп.');end.Пример:Введите сумму (в копейках):520552 грн. 05 коп