program pascal " kembalian uang "

program pascal dengan output jika input nya adalah sejumlah uang :
maka outputnya:
2 koin 200
2 koin 100
3 koin 50
1 koin 25


uses wincrt;

var

koin200,koin100,koin50,koin25:real;
N,sisa:integer;
begin

write('masukkan nilai N: ');
readln(N);
koin200:=N div 200;writeln(koin200:3:0,' koin 200');
sisa:=N mod 200;
koin100:=sisa div 100;writeln(koin100:3:0,' koin 100');
sisa:=sisa mod 100;
koin50:=sisa div 50; writeln(koin50:3:0,' koin 50');
sisa:=sisa mod 50;
koin25:=sisa div 25; writeln(koin25:3:0,' koin 25');
end.