Подскажите пожалуйста, в Паскаль абс, 2 и 4 задания

Первая программа
var arr1: array [1..15] of integer; i: integer;beginfor i:=1 to 15 do beginarr1[i]:=random(-30,50);if arr1[i] lt; 0 then Writeln(arr1[i]);end;end.

1234=55-4452 это ответ на второй номер