Домашняя работа

program my;
var: x,y,t:integer;
begin
WriteLn ('Vvedite chislo');
ReadLn (x);
ReadLn (y);
ReadLn (t);
b:=x;
x:=y;
y:=t;
writeLn ('Obmen znacheniy');
ReadLn;
end.