İDEAL KİLO İÇİN NE YAPMANIZ GEREKTİĞİNİ SÖYLEYEN PROGRAM


uses crt;
var
   kilo,boy,fark,ideal:integer;
   cinsiyet:char;
begin
   repeat
   clrscr;
      write('cinsiyet..:'); readln(cinsiyet);
   until cinsiyet In ['B','b','E','e'];
      write('kilo..:'); readln(kilo);
      write('boy..:'); readln(boy);
if (cinsiyet='B') or (cinsiyet='b') then ideal:=boy-110
   else ideal:=boy-108;
if ideal<kilo then
      write(kilo-ideal,'kilo vermelisin')
   else
if ideal>kilo then
      writeln(ideal-kilo,'kilo almalsn')
   else writeln('BRAVO...  ideal kilodasn');
readln;
end.