паскаль

var k, a, b: integer;

begin

readln(k);

a := k div 100;

b := k mod 100;

writeln(a, ' грн ', b, ' коп') ;

end.

питон

k = int(input())

a = k // 100

b = b % 100

print(a, 'грн', b, 'коп')