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

[Владимир]

Составить программу используя оператор цикла с постусловием
Ввести три числа. Увеличивать третье из них в 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.

Так?