Ответ:

program Hello;

var a,b,c:longint;

begin

 writeln('Введите первое число:');

 readln(a);

 writeln('Введите второе число:');

 readln(b);

 c:=a;

 a:=b;

 b:=c;

 writeln(a,' ',b);

end.