Постусловие Опции

[Владимир]

Составить программу используя оператор цикла с постусловием
Ввести три числа. Увеличивать третье из них в 3 раза, пока оно не будет больше среднего арифметического трех чисел. На экран выдавать числа и их среднее арифметическое.

Program Sm;
Var
x,y,z,c: integer;
Begin
Writeln ('Введите x,y и z');
Readln (x,y,z);
Repeat
c:=z*3;
Until c>x+y+z/3;
Write ('x=',x, 'y=',y, 'z=',z, 'Среднее арифметическое=',(x+y+z)/3);
End.

Так?

[klem4]

с := z;
repeat
  c := c * 3;
until (c > (x + y + z) / 3);

?

writeln('x = ', x, ' y = ', y, ' z = ', z, 'newZ = ', c);

Правда перед циклом стоит сделать проверку:

if (c <= (x + y + z) / 3) then
 repeat
  ...