Вводятся величины x,y целого типа. разработать схему алгоритма для обмена значений величин. необходимо использовать величину т. протестировать алгоритм для x=5 и y=-11.

Program Pr1;

uses crt;

var x,y,t:integer;

Begin

clrscr;

readln(x,y);

t:=x;

x:=y;

y:=t;

writeln(x,y);

end.

var
x,y,t:integer;
begin
write('x=');
readln(x);
write('y=');
readln(y);
t:=x;
x:=y;
y:=t;
writeln('x=',x,' y=',y);
readln;
end.