Question

Срочно!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Answer 1

3) Вывести числа....
Var i:integer;
Begin
i:=10000;
while (i<99999) do begin
if (i mod 194 = 0) then begin write(' ',i); i:=i+194 end
else i:=i+1;
    end;
end.