Ввести число.Если оно положительное, возвести его в квадрат, по другому возвести его

program zz1;

var a, b:integer; // вводим переменные целого типа

begin

write( введите данное число );  // вводим с клавиатуры число

read(a);

if a gt; 0 // проверяем условие, если начальное число положительное, то

then b:= a * a  // вычисляем ответ, возведя начальное число в квадрат

else b:= a * a * a; // вычисляем ответ, возведя начальное число в куб

write( Приобретенный ответ = , b ); // выводим ответ

end.