var
number, result: integer;
begin
write('Введите целое число: ');
readln(number);

result := number number; // возводим число во вторую степень
result := result result; // возводим число в четвёртую степень

writeln('Число ', number, ' в четвёртой степени равно ', result);
end.