Developing.ru

вычислить F=10, с помощью оператора цикла с постусловием repeat

repeat
f:=10
until true;