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

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.