2. Даны три целых числа. Возвести в квадрат отрицательные числа и в третью степень — положительные (число 0 не изменять).

Program programma;Uses crt;var  i: integer;     a: array [1..1000] of integer;Begin clrscr;for i:=1 to 3 do    begin    write('a[',i,']=');    readln(a[i]);    end;    writeln;for i:=1 to 3 do    begin    if a[i]<>0 then    begin    if a[i]<0 then a[i]:=(a[i])*(a[i])    else a[i]:=(sqr(a[i]))*a[i];    write(a[i],'    ');    end    else    write(a[i],'    ');    end;End.