дано сумма A в центах перевести в доллары и центы например для A=586 результат вывести в виде 568 центов=5 дол 68 цент решить Pascal abc решите срочно

var c,d:integer;

Begin

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

 d := c div 100;

 c := c mod 100;

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

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

End.

Program Dollar;

var

A,D,C:integer;

begin

readln(A);

D:=a div 100;

C:=A mod 100;

write(D, ' долларов и ', C ,' центов');

end.