agressor Сам пробовал решить?
Код
var i, x1, x2: integer;
begin
write('x1 > '); readln(x1);
write('x2 > '); readln(x2);
for i := x1 to x2 - 1 do { x2 не включается, т.к. - 1 }
if (i mod 5) = 0 then write(i:4);
end.
В следующий раз приводи задание как следует, я же не телепат.... :D
И прежде чем спрашивать - постарайся решить сам. Если не получится - ничего страшного, поможем ... :yes: