uses crt;
var
miktar:integer;
sonuc:real;
begin
clrscr;
textcolor(white);
writeln('Naz�m DEM˜R   (SDU/Senirken MYO ”§rencisi)');
writeln;
writeln;
writeln;
textcolor(green);
writeln('                               VERG˜ ˜ADAS˜ PROGRAMI');
writeln;
textcolor(white);
writeln('Miktar� girin=       YTL');
gotoxy(15,7);
readln(miktar);
case miktar of
0..180:
begin
sonuc:=miktar*0.1;
writeln(sonuc:0:2,' YTL');
end;
180..360:
begin
sonuc:=miktar*0.2;
writeln(sonuc:0:2,' YTL');
end;
360..600:
begin
sonuc:=miktar*0.12;
writeln(sonuc:0:2,' YTL');
end;
600..9999:
begin
sonuc:=miktar*0.05;
writeln(sonuc:0:2,' YTL');
end;
end;
readln;
end.

nazım demir
demirnazim@hotmail.com