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

var
  ch1, ch2, ch3: longint;

begin
  write('Введите три числа: ');
  readln(ch1, ch2, ch3);
  if (ch1 > 0) then
  begin
    ch1 := ch1 * ch1 * ch1;
  end
  else
  begin
    ch1 := ch1 * ch1;
  end;
  if (ch2 > 0) then
  begin
    ch2 := ch2 * ch2 * ch2;
  end
  else
  begin
    ch2 := ch2 * ch2;
  end;
  if (ch3 > 0) then
  begin
    ch3 := ch3 * ch3 * ch3;
  end
  else
  begin
    ch3 := ch3 * ch3;
  end;
  writeln('1: ', ch1, ' 2: ', ch2, ' 3: ', ch3);
  readln;
  readln;

end.