Var r,ves:integer;
begin
read(r);
ves:=r-100;
writeln(Для человека ростом ,r,см идеальный вес равен ,ves, кг);
end.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.