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

Var s,g,k:integer;
begin
writeln('Введите сумму (в копейках):');
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.

Пример:
Введите сумму (в копейках):
5205
52 грн. 05 коп