Ответы и объяснения

2014-02-04T16:10:14+04:00
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.