1 задание free pascal

Question

1 задание free pascal

---

Answer 1

Program Random
uses crt;
var
num: integer;
begin
clrscr;
randomize;
num:= random(4) * 100;
writeln(num);
end.