Даны 3 действительных числа.Возвести в квадрат те из них, значения которых неотрицательны — Pascal(Паскаль)

program D1;

var
  a, b, c: integer;

begin
  writeln('Vvedite 3 chisla');
  readln(a, b, c);
  if a > 0 then
    a := sqr(a);
  if b > 0 then
    b := sqr(b);
  if c > 0 then
    c := sqr(c);
  writeln('Rezultat');
  writeln(a, ' ', b, ' ', c);

end.