, , с 4 и 14 заданием для паскаля

1)program wk;
var mas:array [1..5]of integer;i:integer;
begin 
 for i:=1 to 5 do 
  mas[i]:=Random(121)-64; 
for i:=1 to 5 do 
 Writeln(mas[i])
end.
2) program wk;
var mas:array [1..8] of integer;i:integer;p:real;
begin
 p:=1; 
 for i:=1 to 8 do 
  begin 
   readln(mas[i]); 
   p:=p*mas[i]; 
  end;
 Writeln(p)
end.
3)program wk;
var mas:array [1..8] of integer;i:integer;p:real;
begin
 p:=1; 
 for i:=1 to 8 do 
  begin 
   readln(mas[i]); 
   if (i mod 2 <>0)then p:=p*mas[i]; 
  end;
 Writeln(p)
end.

1. Алгоритм
Машинный код
Интерфейс
2.
Windows, Mac OS. , Linux
3.
Создать, сохранить, закрыть, открыть, переименовать, переместить, копировать, удалить.

____Выделить объект

____Выбрать команду "Переименовать" в меню, появится в поле имени объекта текстовый курсор - вертикальная мигающая палочка.
____Стереть старое имя.
____Набрать с клавиатуры нужные для задания имени символы;
____1ЛКМ на свободном месте рабочей области окна или нажать клавишу Enter для подтверждения операции.