Question

Помогите,как это сделать?

Answer 1

Program TuKpa6;varn,k,x:integer;BEGINx:=3;for n:=1 to 5 do  begin    for k:=n to n+1 do      begin        x:=x+k;      end;  end;  writeln(x);END.
x=38;