Var A, B, C, D, E, SUM: Integer;
begin
Write ('Первое слагаемое: ') ;
Readln (A) ;
Write ('Второе слагаемое: ') ;
Readln (B) ;
Write ('Третье слагаемое: ') ;
Readln (C) ;
Write ('Четвертое слагаемое: ') ;
Readln (D) ;
Write ('Пятое слагаемое: ') ;
Readln (E) ;
SUM := A+B+C+D+E;
Writeln (SUM);
readln;
end.
Var A, B, C, D, E, SUM: Integer;
begin
Write ('Первое слагаемое: ') ;
Readln (A) ;
Write ('Второе слагаемое: ') ;
Readln (B) ;
Write ('Третье слагаемое: ') ;
Readln (C) ;
Write ('Четвертое слагаемое: ') ;
Readln (D) ;
Write ('Пятое слагаемое: ') ;
Readln (E) ;
SUM := A+B+C+D+E;
Writeln (SUM);
readln;
end.