Даны описания:
Var a,b:integer; c,d:real;
procedure obmen(var a:integer; var b:integer);
Var s:integer;
Begin
s:=a; a:=b; b:=s;
end;