Объяснение:

Program zero;

Label 1;

Var x, y, z:Real;

Begin

1:Whiteln(' Введите "x" :');

Readln(x);

z:=0;

While x<3 do

Begin

y:=x*2+6;

Whiteln('Действие цикла');

x:=x+1;

z:=z+1;

End;

Whiteln('Цикл окончен');

Whiteln('Цикл выполнялся ', z, ' раз');

Goto 1;

Readln

End.

Поидеи так, но это не точно