Question

Напиши программу которая будет писать разные числа
30 балов

Answer 1

begin
  while true do begin
    writeln(random(1000));
  end
end.