אבל ככה עושיםא ת זה אני אכתוב בהרחבה בשבילך
הנה כל קטע התוכניתProgram Price;
Uses crt;
Var
b,cost:real;
a:integer;
begin
writeln ('Please enter the cost');
readln (cost);
a:=trunc(cost);
b:=cost-a;
b:=b*100;
writeln ('the No. of integers is: ',a:1,' and the No. of the agorot is: ',b:1:2);
readln;
end.
s22Sisquss33