İdeal Kilonuzu ö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.


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.