Составить программу, которая вводит 5 элементов массива и увеличивает каждый из них на 7.

Pascal: program mas; var a:array[1 ... 5]of real; i, n:integer; begin n:=0; for i:=1 to 5 do begin write ('Vvedite a[', i,']:'); readln (a [ i ]); if a [ i ]0 then inc (n); end; write ('Kol-vo elemento ne ravnih 0:', n); readln; end.