Question

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

Answer 1

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.

Answer 2

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);

  readln
end.