Programalama > PASCAL

Uses Crt;
Var
Y,M,K,L,S:Longint;
Begin
Clrscr;
Gotoxy(20,3);Textcolor(11);
Write('Yakt Litre Fiyatn Giriniz.....:');Readln(Y);
Gotoxy(20,6);
Write('Mesafeyi Giriniz Km Olarak.......:');Readln(M);
gotoxy(20,9);
Write('Aracnz 1 Km De Ka‡ TL Yakyor..:');Readln(K);
L:=(K*M) div Y;
S:=L*Y;
Gotoxy(10,13);Textcolor(14);
Writeln('Harcayaca§nz Yakt Miktar...:',L,' Litre');
Gotoxy(10,16);Textcolor(2);
Write('Yakt Masrafnz..:',S,' TL Dir');
Gotoxy(25,20);Textcolor(4);
Write('Program Hazrlayan'#16'Hakan €avuŸ');
Readln
End.