Помогите решить пожалуйста 5 задача (а)

Question

Помогите решить пожалуйста 5 задача (а)

---

Answer 1

Program dfg;
var
i,b,a:integer;
begin
randomize;
b:=1;
for i:=1 to 10 do
begin
a:=random(10);
writeln('а = ',a);
end;
end.