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

Question

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

---

Answer 1

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