Дан ABC (рис. 94), AM = MB = 6 см, ∠MEB = ∠ AKM = ∠C, MK = 7 см, KC = 5 см. Найдите периметр ABC

Var a:array [1..10] of integer;
i,n:integer;
begin
n:=1;
randomize;
for i:=1 to 10 do
a[i]:=random(10);
for i:=1 to 10 do
write(a[i],' ');
writeln;
for i:=1 to 10 do
begin
if a[i] mod 2 <>0
then n:=n*a[i]
end;
write(n);
end.