Помогите САМОСТОЯТЕЛЬНО. Ввести с клавиатуры значения для А, В, С. Поменять их местами: А => В, В => С, С => А. Комментарий: в программе будет объявлено 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.