Program abc;
uses crt;
var mas: array [1..5] of integer;
sum, i, j: integer;
proiz:longint;
sinys,modyl,modyl2:real;
begin
sum := 0;
proiz := 1;
sinys:= 1;
modyl:=1;
writeln('введите элементы массива');
for i := 1 to 5 do readln(mas[i]);
write('massiv:');
for i := 1 to 5 do
begin
write( mas[i],' ');
sum := sum +mas[i];
proiz := proiz *mas[i];
sinys:= sin(modyl2);
modyl:= abs(mas[i])*modyl;
modyl2:= abs(mas[i])+modyl2;
end;
writeln;
writeln('summa:', sum);
writeln('произведение элементов массива:', proiz);
writeln('sinys raven:',sinys);
writeln('modyl:',modyl);
end.