program raf105;
var i,a,sum: integer;
begin
for i:=1 to 5 do
a:= random(1,10);
writeln(a);
sum+= a;
end;
writeln('Сумма: ',sum);
end.
program raf105;
var i,a,sum: integer;
begin
for i:=1 to 5 do
begin
a:= random(1,10);
writeln(a);
sum+= a;
end;
writeln('Сумма: ',sum);
end.
PascalABC 3.4.2.