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

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.

Оцени ответ

Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!