Задача
Заполнить массив случайными числами и вывести его на экран компьютера.

Program Random_mas;
uses Crt;
Var i: integer;
Ran : array [1..10] of integer;
begin
Clrscr;
Randomize;
For i:=1 to 10 do
begin
ran[i]:=random(100);
writeln(ran[i]);
end;
readln;
end.