Question

Помогите решить , нужно программу и блок схему

Answer 1

var r,v,s : integer;
begin
  write('Вес в кг = ');
  readln(v);
  write('Рост в см = ');
  readln(r);
  s:=r-100;
  if s<v
    then writeln('Похудеть на ',v-s,' кг')
   else if s>v  then writeln('Поправиться на ',s-v,' кг')
                else writeln('Идеальный вес');
  end.