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

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.