Напишите программу вычисления идеального веса человека по формуле: идеальный вес = рост в см - 100. значение роста вводится с клавиатуры. результат вывести в следующем виде: .

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