While w<>44 do
Begin
W:=sqrt(w+10/f);
F:=w+sqr(f);
End;
Твоя условия ! Но это не работает переполнение типа.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.