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

program zz1;

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

begin

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

read (a);

if a > 0 / / проверяем условие, если исходное число положительное, то

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

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

write (' Полученный ответ = ', b); / / выводим ответ

end.