Домашняя работа на 27 сентября -1 октября

Выписать в тетрадь и выучить 3 задачи

№1 Ввести с клавиатуры 5 элементов массива, каждое значение увеличить на  4 и вывести новые элементы через пробел 

var a:array [1..5] of integer;
 i,S:integer;
begin
for  i := 1 to 5 do
 read(a[i]);
for  i := 1 to 5 do
 a[i]:=a[i] +4;
 for  i:= 1 to 5 do
 write(a[i],' ');
 end.

№2 Ввести с клавиатуры 5 элементов массива, каждому присвоить значение 4 и вывести новые элементы через пробел

 var a:array [1..5] of integer;
n, i,S:integer;
begin
for  i := 1 to 5 do
 read(a[i]);
for  i := 1 to 5 do
 a[i]:=4;
 for  i:= 1 to 5 do
 write(a[i],' ');
 end.

 №3 Ввести с клавиатуры 5 элементов массива, сложить 3 и 5 элементы и  вывести сумму этих элементов

 var a:array [1..5] of integer;
n, i,S:integer;
begin
for  i := 1 to 5 do read(a[i]);
for  i := 1 to 5 do  a[i]:=4;
 S:= a[3]+ a[5] ;

 write(S');

 end.