Паскаль Распишите подробно Я умоляю

4. for i:=1 to n do if a[i] < 0 then writeln a[i] 5. Чтобы сократить действия и не писать до потери пульса a[i]= и т.д.