Напишите программу вычисления идеального веса человека по формуле: Идеальный вес = Рост в см – 100. Значение роста вводится с клавиатуры. Результат вывести в следующем виде: «Для человека ростом 165 см идеальный вес равен 65 кг»

Uses Crt;Var a,b:integer;Begin Writeln('Введите ваш рост в сантиметрах, округлив до целого значения'); Readln(a); b:=a-100; Writeln('Для человека ростом ', a,' см идеальный вес ', b,' кг');End.