Код программы на Pascal:
var height:integer;
begin
readln(height);
writeln('Идеальный вес: ', height - 100);
end.
