Объявите метку : 10 : запишите оператор безусловного перехода по этой метке : поставьте метку 10 на оператор : readln ( a , b , x ) .

label 10;

begin

  ...

  goto 10;

  ...

10: readln(a, b, x);

  ...

end.