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.