Основы программирования на языке Turbo Pascal

Program Eight;
var x, y, t: integer;
begin
writeln('Vvedite peremennie X i Y');
readln(x);
readln(y);
t:=x;
writeln('t=',t);
x:=y;
writeln('x=',x);
y:=t;
writeln('y=',y);
readln;
end.