program obliczanie_BMI;

  uses crt;

  var { deklaracja zmiennych }
    wzrost, waga : integer;
    bmi : real;
    roznica:integer;

    begin
    {wprowadzenie danych}
    clrscr;
    writeln('Program oblicza BMI.');
  repeat
     write('Podaj swoj wzrost w cm (120-300): ');
     readln(wzrost);
  until (wzrost>=120) and(wzrost<=300);
  repeat
     write('Podaj swoja wage w kg (30-400): ');
     readln(waga);
  until (waga>=30) and (waga<=400);

     {obliczenia}
     bmi:=(wzrost-100)/waga;


     {przedstawienie wyników}
    writeln('Twoje BMI wynosi ',bmi:5:3);


    if bmi=1 then
    begin
    writeln('Masz idealna wage.');
    end
    else
        if bmi>1 then
        begin
        write('Masz niedowage.');
        roznica:=wzrost-100-waga;
        writeln(' Powinienes przytyc ', roznica ,'kg.');
        end
        else
        begin
        write('Masz nadwage.');
        roznica:=waga-(wzrost-100) ;
        writeln(' Powinienes schudnac ', roznica ,'kg.');
        end;
    readln;
  end.