Составить программу для нахождения суммы первых шести чисел.

Question

Составить программу для нахождения суммы первых шести чисел.

Answer 1

Program abc;
Var a,b,c,d,e,f,x:integer;
Begin
Writeln('Введите числа');
Readln(a,b,c,d,e,f);
X:=a+b;
X:=x+c;
X:=x+d;
X:=x+e;
X:=x+f;
Writeln(x);
End.