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

program e4;
var d:real;
a,b,c: integer;
begin
writeln('Введи 3 числа a,b,c');
readln (a,b,c);
writeln('a');
if a<0 then
 writeln(a*a)
else
 writeln(a*a*a);
 
 writeln('b');
if b<0 then
 writeln(b*b)
else
 writeln(b*b*b);

 writeln('c');
if c<0 then
 writeln(c*c)
else
 writeln(c*c*c);

readln;
end.