дано сумма A в центах перевести в баксы и центы к примеру

Program Dollar;

var

A,D,C:integer;

begin

readln(A);

D:=a div 100;

C:=A mod 100;

write(D, ' баксов и ', C ,' центов');

end.

var c,d:integer;

Begin

 write('Введите кол-во центов: '); readln(c);

 d := c div 100;

 c := c mod 100;

 writeln(d, ' Долларов');

 write(c, ' Центов');

End.