Напишите программу, которая возводит в четвёртую степень введённое с клавиатуры целое число. составьте алгоритм решения этой из нескольких операторов присваивания.в pascal.

var a,a2,a4:integer;
begin
readln(a);
a2:=a*a;
a4:=a2*a2;
writeln(a,'^4 = ',a4);
end.

Пример:
3
81