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

Question

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

Answer 1

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