Задание 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              else writeln(k, коп.);
end.

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