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