program blablabla;
{------------------------------------------------------------------------------}
procedure Rasa (a : integer; var b : integer);
var c : integer;
begin
c := a + b;
b := 2*c + a;
end;
{------------------------------------------------------------------------------}
var x, y, c : integer;
begin
x := 3; y := 4; c := 5;
Rasa(x, y); writeln(x:5, y:5, c:5);
Rasa(c, x); writeln(x:5, y:5, c:5);
Rasa(y, c); writeln(x:5, y:5, c:5);
Readln;
Gal galite kas paaiskinti issamiai kaip gaunamas sis rezultatas?