тема: сдвиг информорматика
сделайте программу
дано 4 числа
a b c d сдвиньте на d c b a
1 2 3 4 сдвиньте на 4 3 2 1
ОЧЕНЬ СРОЧНО !!!
ДАЮ 15 баллов!!!​

program raf105;

var a,b,c,d,x:integer;

begin

write('Введите 4 числа через пробел: ');

readln(a,b,c,d);

x:=a;

a:=d;

d:=x;

x:=b;

b:=c;

c:=x;

writeln('Вывод: ',a,' ',b,' ',c,' ',d);

end.