даны три числа возвести в квадрат те из них значения которых отрицательны

PROGRAM first;VAR i,a,b:integer;BEGIN cls; read(a,b,i);  if a<0 then write(sqr(a));

  if b<0 then write(sqr(b));

  if i<0 then write(sqr(i))END.

program xxx;  var a,b, c : integer;begin

  writeln('Введите 3 числа-');

 read(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('ответ:');

  write(a, b, c);

  readlnend.