İdeal Kilo Ölçer

bay ve bayanlar için farklı arkın ideal kılo hesaplıyor boy ve kılonuzu soyledıgınızde ideal kılonuzu hesaplıyor.

Kod:

uses crt;
var
   kilo,boy,fark,ideal:integer;
   cinsiyet:char;
Begin
     repeat
     clrscr;
     write('Cinsiyet(B/E).......:');readln(cinsiyet);
     Until cinsiyet In ['B','E'];
     write('Kilo...............:');readln(kilo);
     write('Boy................:');readln(boy);
     If (cinsiyet='B') then  ideal:=boy-110
                       else  ideal:=boy-108;
     If ideal<kilo Then
        writeln(kilo-ideal,' Kilo vermelisiniz !')
        Else
            If ideal>kilo then
               writeln(ideal-kilo,' kilo almalisiniz ! ')
               else writeln(' Bravo... ideal kilodasiniz');
               writeln;
               writeln;
               textcolor(4);
               write('Gop šnv Bilg. ™grencisi Sezer ALTUN Tarafindan yapilmistir.');
               readln;
end.