Напишите в паскале программу, ко

Напишите в паскале программу, которая...

Напишите в паскале программу, которая высчитает сумму четырех чисел, используя только двепеременные.
Чтобы отвечать на вопросы, необходимо зарегистрироваться или авторизоваться.
Мегамозг
10 Января
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.
...