Mam napisać program , który pobiera od użytkownika jakąś kwote pieniędzy i wypisuje ile jest banknotów 200 zł , 100 zł itp az do monety 1 groszowej . Już napisalem ten program jednak nie moge go skompilowac ze względu na błędy. Jesli uważacie że coś mozna optymalniej zapisac napiszcie. Prosze o pomoc !!.
uses crtl;
var nominaly: array[1..14] of real
i,ilosc:byte;
kwota:real;
begin
nominaly[1]:=200 itp aż do nominaly[14]:=0.01
writeln('podaj kwote:');
read(kwota);
repeat
begin
ilosc:=kwota div nominaly[1]; // tu wyskakuje błąd : OPERAND TYPES DO NOT MATCH OPERATOR .
writeln('liczba banknotow' , nominaly[1] , ' wynosi ', ilosc);
kwota := kwota - ilosc* nominaly[1] ;
nominaly:=nominaly +1 // nie jestem pewny czy moge to tak zapisać , chce aby w następnym obiegu tablicy pojawił sie element nominaly[2]
end;
until i=14
readkey;
end.