Напишите в паскале программу, которая высчитает сумму четырех чисел, используя только две переменные.

Program z1;

var

a, b: integer;

begin

a:=0;

readln (b) ;

a:=a+b;

readln (b) ;

a:=a+b;

readln (b) ;

a:=a+b;

readln (b) ;

a:=a+b;

write (a) ;

end.

или

program z1;

var

a, b: integer;

procedure add;

begin

readln (b) ;

a:=a+b;

end;

begin

a:=0;

add () ;

add () ;

add () ;

add () ;

writeln (a) ;

end.