Proszę o pomoc przy narysowaniu schematu blokowego do tego programu:
Uses crt;
Var a,b: integer;
Procedure Zamien1(x,y : Integer);
Var z : integer;
Begin
Z :=x;
X :=y;
y :=z;
End;
Procedure Zamien2( Var x, y : Integer);
Var z : Integer;
Begin
z :=x;
x :=y;
y :=z;
End;
Begin
ClrScr;
a :=5;
b :=7;
Writeln ('a = ', a, ', b = ', b);
Zamien1(a,b);
Writeln ('a = ', a, ', b = ', b);
Zamien2(a,b);
Writel('a = ', a, ', b = ', b);
WriteLn;
Readkey;
End.
źródło: