Программа обмена значениями двух чисел

Program key;
var: x,y,t: intenger;
begin
writeln ( ' Vvedite 3 chisla');
readln (x);
readln (y);
readln (t);
t:=x;
x:=y;
y:=t;
writeln ( ' Obmen znacheniy velichin ' );
readln;
end