Закончить код так что бы получилась программа, которая выводит случайно число.Program sl;BeginRandomize;

var a : integer;

begin

randomize; // используется, чтобы числа не повторялись

a := random(10);

writeln(a);

readln;

end;