Программа для определения квадрата, куба и 6 степени числа на языке Pascal:

program PowerCalc;
var
number, square, cube, power_6: integer;
begin
writeln('Введите число:');
readln(number);
square := number * number;
cube := square * number;
power_6 := cube * cube;
writeln('Квадрат числа ', number, ' равен ', square);
writeln('Куб числа ', number, ' равен ', cube);
writeln('6 степень числа ', number, ' равна ', power_6);
end.

Программа принимает число от пользователя, вычисляет его квадрат, куб и 6 степень, а затем выводит результаты.