Яп паскаль «условный оператор» . создайте программу вычисления идеального веса человека. программа позволяет пользователю ввести значение роста с новой строки. затем определяет идеальный вес по формуле: ид.вес = рост в см – 105. на экран выводится значение роста и идеального веса и рекомендацию о том, сколько пользователю нужно сбросить или набрать килограмм.

program ves;

uses crt;

var h,c,i,p: real;

begin

      clrscr;

      write('введите ваш вес в килограммах: ');  

      readln(p);

      write('введите ваш рост в сантиметрах: ');

      readln(h);

      i: =h-105;

      c: =i-p 

      writeln('ваш рост в сантиметрах=',h);  

      if   (c=0) then writeln('ваш вес идеален');  

    if (c> 0) then writeln('для достижения идеального веса надо сбросить ' , с  , ' килограмм')

            else  writeln('для достижения идеального веса надо набрать ' ,с , ' килограмм');  

      readkey;

  end.

var a,b,c: integer; beginwriteln('введите рост в см'); writeln('введите ваш вес'); readln(a,c); //c вес т.к на основе его можно делать вывод приавить нужно вес или нет //b идеальный весb: =a-105; if (b< c) then writeln('a=',a,'c=',c,' ''вам необходимо сбросить вес') elseif (c< b) then writeln('a=',a,'c=',c,' ''вам необходимо прибавить в весе'); readln; end.