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

var a,b,c:integer;begina:=180;while a<=250 do beginb:=a-100;writeln('идеальный вес для ', a ,' метра роста ', b,' килограмм');a:=a+1;end;end.