ребус НАТАША + ТОНЯ = СЁСТРЫ как написать програму в паскале?)

для сестер уже решал в прошлом вопросе
решение для ЛАДЬЯ+ЛАДЬЯ = ФЕРЗЬ по аналогии

program checkmate;
uses crt;
var
l, a, d, io, ya, f, e, r, z: 0..9;
dig: set of 0..9;
sum, ferzio: longint;
begin
clrscr;
for l:=0 to 9 do begin
include(dig, l);
for a:=0 to 9 do if not (a in dig) then begin
include (dig, a);
for d:=0 to 9 do if not (d in dig) then begin
include (dig, d);
for io:=0 to 9 do if not (io in dig) then begin
include (dig, io);
for ya:=0 to 9 do if not (ya in dig) then begin
include (dig, ya);
for f:=0 to 9 do if not (f in dig) then begin
include (dig, f);
for e:=0 to 9 do if not (e in dig) then begin
include (dig, e);
for r:=0 to 9 do if not (r in dig) then begin
include (dig, r);
for z:=0 to 9 do if not (z in dig) then begin
include (dig, z);
sum:= 2*(l*10000+a*1000+d*100+io*10+ya);
ferzio:= f*10000+e*1000+r*100+z*10+io;
if sum=ferzio then
writeln (l,a,d,io,ya,'+',l,a,d,io,ya,'=',ferzio);
exclude (dig, z);
end;
exclude (dig, r);
end;
exclude (dig, e);
end;
exclude (dig, f);
end;
exclude (dig, ya);
end;
exclude (dig, io);
end;
exclude (dig, d);
end;
exclude (dig, a);
end;
exclude (dig, l);
end;
readln
end.

для ПРОП * О = РЦИЯ

program proporciya;
uses crt;
var
p, r, o, c, i, ya: 0..9;
dig: set of 0..9;
proizved, rciya: longint;
begin
clrscr;
for p:=0 to 9 do begin
include(dig, p);
for r:=0 to 9 do if not (r in dig) then begin
include (dig, r);
for o:=0 to 9 do if not (o in dig) then begin
include (dig, o);
for c:=0 to 9 do if not (c in dig) then begin
include (dig, c);
for i:=0 to 9 do if not (i in dig) then begin
include (dig, i);
for ya:=0 to 9 do if not (ya in dig) then begin
include (dig, ya);
proizved:= o*p*1000+o*r*100+o*o*10+o*p;
rciya:= r*1000+c*100+i*10+ya;
if proizved=rciya then
writeln (p,r,o,p,'*',o,'=',rciya);
exclude (dig, ya);
end;
exclude (dig, i);
end;
exclude (dig, c);
end;
exclude (dig, o);
end;
exclude (dig, r);
end;
exclude (dig, p);
end;
readln
end.

думаю, по этим примерам сможешь и все остальное решить))

? подробней можно? что то не понятно что должна программа выводить?

наташа+толя =порно

Чистеры =))