Programalama > PASCAL

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.