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

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.