Kod:
program para_analizi;
{$APPTYPE CONSOLE}
type
dizi1=array[1..7] of integer;
dizi2=array[1..7] of string;
var
para1izi1=(200,100,50,20,10,5,1);
para2izi2=('ikiyuz','yuz','elli','yirmi','on','bes','bir');
netucret,i,tamsayi:integer;
begin
write('Lutfen Net Ucreti TL Cinsinden Giriniz:');
readln(netucret);
writeln;
for i:=1 to 7 do
begin
tamsayi:=trunc(netucret/para1);
netucret:=netucret-tamsayi*para1;
if tamsayi>0 then
begin
writeln(tamsayi,' ','adet',' ',para2,'tl');
end;
end;
readln;
end.