Самостоятельно. ввести с клавиатуры значения для а, в, с. поменять их местами: а => в, в => с, с => а. комментарий: в программе будет объявлено 4 переменных, обмен значений произведем за 4 шага.

Program gf;
uses crt;
var a,b,c,d:integer;
begin
writeln('Напишите числа');
readln(a,b,c);
d:=b;
b:=c;
c:=a;
a:=d;
writeln(a,b,c);
end.