var a,b, P: real;
begin
write(' Введите длины сторон прямоугольника: ');
readln(a,b);
P:=2*(a+b);
write('периметр (P) = ',P);
readln;
end.
Var n,a,b,s:integer;
begin
read(n1);
a:=n1 div 10;
b:=n1 mod 10;
s:=a+b;
n:=10*b+a;
writeln(s);
writeln(n);
end.
Програм 1 + програм 2 = d 1 + d2 деленная на 2
N(M)=N(И)+N(E)+N(K)
N(И)=N(B)+N(E)=(N(Б)+N(Ж)) + (N(Ж)+N(В))=1+1+1+2=5
N(E)=N(Ж)+N(В)=1+2=3
N(K)=N(Ж)+N(Е)=1+3=4
N(M)=5+3+4=12
Ответ: 12
Вот, держи :) ...................