Паскаль: напишите программу, которая меняет местами значения двух переменных в памяти.

Program llllll; var a,b,c: integer; begin       writeln('введите a');       readln(a);       writeln ('введите b');       readln(b);       c : = a;       a : = b;       b : = c;       writeln('a = ' ,a);       writeln('b = ', b); end.      

program p;

vara,b,c,i,j,n : integer;

beginwriteln('введите три числа'); readln(a,b,c);

if a> b then if a> c then writeln(a,c,b) else writeln(c,a,b) else if c> b then writeln(a,b,c) else writeln(b,c,a);  

readln; end.