Question

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

Answer 1

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