сделать в excel и скинуть файл)

Великий писатель, драматург, публицист, граф лев николаевич толстой родился 9 сентября (28 августа по старому стилю) 1828 года в имении ясная поляна крапивенского уезда тульской губернии (ныне щекинского района тульской области) в одном из самых знатных дворянских семейств. он был четвертым ребенком в семье. детство будущего писателя прошло в ясной поляне. он рано осиротел, потеряв сначала мать, которая умерла, когда мальчику было два года, а затем и отца. в 1837 году семья переехала из ясной поляны в москву. опекуншей осиротевших детей стала их тетка, сестра отца александра ильинична остен-сакен. в 1841 году, после ее смерти, юный толстой с сестрой и тремя братьями переехал в казань, где жила другая тетка - пелагея ильинична юшкова, ставшая их опекуншей. подробнее - на -

program z1;

const a: array [1..16] of integer = (0,15,12,-9,-8,58,45,36,-85,58,36,-45,2,3,25,-9);

var i, s, k: integer;

begin

s:=0;

write ('Массив: ');

for i:=1 to 16 do

begin

write (a[i],' ');

if a[i]>0 then s:=s+a[i];

if a[i]<0 then k:=k+1

end;

writeln;

writeln ('Сумма положительных элементов ',s);

write ('Количество отрицательных элементов ',k)

end.

program z2;

var a:array [1..10] of integer;

i,p,k:integer;

begin

k:=0;

p:=1;

write('Массив: ');

for i:=1 to 10 do

begin

a[i]:=random(7)-3;

write(a[i]:4);

if a[i] <> 0 then

begin

p:=p*a[i];

k:=k+1

end

end;

writeln;

if k<>0 then write ('Произведение элементов, которые не равняются 0, равно ',p)

else write ('Произведение элементов, которые не равняются 0, равно 0')

end.