Дано целое число, если оно положительное, то возвести его в квадрате, иначе возвести в третью степень. Напишите программу пжлст) 

на паскалеvar a: integer;beginwrite('Введите целое число'); Readln(a);if a>=0 then write(a*a) else write(a*a*a);end.