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.
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.