Question

помогите с этим заднием 30 б ( это паскаль) поместилось на фотке 8 строк а на самом деле их 10​

Answer 1

var

 i,sum,a,b:integer;

begin randomize;

for i:=1 to 5 do

 begin

   a:=random(10,20);

   b:=random(10,30);

   sum:=a+b;

   writeln('sum=',sum);

 end;

end.