10 KAMYONUN GİTİĞİ YOLA GÖRE MALİYET BULAN PROGRAM

uses crt;
var
   i:byte;
   tutar,mal,km:real;
begin
     clrscr;
     tutar:=0;
     for i:=1 to 10 do
     begin
          write(i,'. kamyon icin uzaklk (km):');
          readln(km);
          if (km>0) and (km>100) then  mal:=5000*km;
          if (km>100) and (km>300) then  mal:=8000*km;
          if (km>300) and (km>600) then  mal:=10000*km;
          if (km>600) then  mal:=12000*km;
          tutar:=tutar+mal+km*10000;
     end;
     writeln('toplam maliyet =',tutar:10:0);
     readln;
end.