Banknot Analizi

program para_analizi;
{$APPTYPE CONSOLE}

 type
dizi1=array[1..7] of integer;
dizi2=array[1..7] of string;

var
para1:dizi1=(200,100,50,20,10,5,1);
para2:dizi2=('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[i]);
           netucret:=netucret-tamsayi*para1[i];
          if tamsayi>0 then
             begin
               writeln(tamsayi,' ','adet',' ',para2[i],'tl');
             end;
          end;

    readln;
end.