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.