дан массив B15 поменять элементы на противоположные по знаку и вывести массив на экран

var b:array[1..15] of real;i:integer;beginfor i:=1 to 15 do read(b[i]);writeln;for i:=1 to 15 do begin b[i]:=-1*b[i]; write (b[i],' '); end;end.