Составить предложение со словом Родина

program s1;
var
a:array [1..10] of integer; i,n,s,p,k1,k2:integer;
begin
write ('n-?'); readln(N);
for i:=1 to n do
Begin
Write (i, '-й-?'); readln (a[i]);
end;
for i:=1 to n do write ('', a[i]);
writeln;
s:=0; p:=1; k1:=0; k2:=0; k3:=0;
for i:=1 to n do
begin
{1} s:=s+a[i];
{2} if a[i]>0 then p:=p*a[i];
{3} if a[i]<0 then k1:=k1+1;
{4} if a[i] mod 2=0 then k2:=k2+1;
{5} if a[i] mod 2=1 then k3:=k3*i;
end;
writeln ('s=', s, ' p=', p, ' k1=', k1, ' k2=', k2, )
end.

Из этой задачи вывести произведение нечетных чисел в k3

[tex]H2O, HCe, Ce2[/tex]помогите пожалуста! составьте электронную формулу слейдуюшие соединени

сколько тепла выделится при взаимодействии 1 л (н.у) водорода со фтором, если образование 1 г HF сопровождается выделением 13,45 кДж тепла?