Странно. Уже решал такой набор задач, только с другими данными:
Задача №1
//PascalABC.NET (версия 3.1, сборка 1198)
var
x: integer;
y: biginteger;
begin
x:=readlninteger('Введите Х ');
y := sqr(x) * sqr(x) * sqr(x);println(y);
y := sqr(y)/sqr(x);println(y);
y := y * sqr(x) * sqr(x) * x;println(y);
y := y * sqr(x) * sqr(x);println(y);
end.
Тестовое решение:
Введите Х 2
64
1024
32768
524288
Задача №2
//PascalABC.NET (версия 3.1, сборка 1198)
var
a, b, c: integer;
begin
writeln('Введите 3 числа');
readln(a, b, c);
swap(a, b);swap(a, c);
println(a, b, c);
end.
Тестовое решение:
Введите 3 числа
2 3 4
4 2 3