В каком из операторов цикла допущена ошибка?
а) while a>b do x:=x+1
a:=a-1;

б) repeat
x:=x+1;
a:=a-1;

в) for i:=1 to n do s:=s*i;