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

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