PASCAL / Asgari Geçim İndirimi

program asgari_gecim_indiri;
uses crt;
const
s_oran = 50;
var
med,es : char;
cocuk : 1..15;
oran : real;
begin
{$R+}
clrscr;
write(‘Evlimisin bekarmsn? (e yada h ) > ‘);
readln(med);
writeln;
if med in [‘H’,’h’] then
begin
write(‘Asgari ge‡im indirim orannz ‘, s_oran);
end
else
begin
write(‘EŸiniz ç‡alŸyor mu? (e yada h ) > ‘);
readln(es);
writeln;
if es in [‘h’,’H’] then
begin
oran := oran + s_oran + 10;
end
else
begin
oran := s_oran;
end;
write(‘ka‡ co‡uk var? > ‘);
readln(cocuk);
case cocuk of
0 : oran := oran + 0;
1 : oran := oran + 7.5;
2 : oran := oran + 15;
3 : oran := oran + 20;
4..15 : oran := oran + 25;
end;
writeln;
write(‘Asgari ge‡im indirim orannz ‘,oran:0:2);
end;
readln;
end.