Задача в Паскале. с помощью оператора while напишите программу определения идеального веса для взрослых по формуле: ид. вес=рост-100. выход из цикла : значение роста=250

Предыдущий
вопрос Следующий
вопрос

Программа на языке программирования Pascal:

program IdealWeightCalculator;
var
height, idealWeight: integer;
begin
repeat
writeln('Введите значение роста человека (в см): ');
readln(height);
if height = 250 then
break;
idealWeight := height - 100;
writeln('Идеальный вес для данного роста: ', idealWeight);
until height = 250;
writeln('Завершение программы.');
end.

Эта программа запрашивает у пользователя значение роста и вычисляет идеальный вес для взрослого человека по указанной формуле. Программа повторяется до тех пор, пока пользователь не введет значение роста равное 250.