program ed;</br>
var a,d,x,min,count:longint;</br>
Begin
write('vvedi a,d i pervoe chislo');</br> read(a,d,x);</br>
min:=x;</br>
count:=0;</br>
while (x-a) mod d<>0 do begin
count:=count+1;</br>
if x<min then min:=x;</br>
read(x);</br>
end;</br>
if count>0 then writeln('min',min) else
writeln('pustaj posledovatelnost');</br>
readln;</br>
End.