writeln('Сасай, лалка!');
readln;
END.
</poem>
== Ещё кое-что ==
<poem>
Program WisestProf;
var N: longint;
i, k: shortint;
X: array[1..100] of longint;
BEGIN
N:=111111111;
repeat
X[1]:=N;
i:=1;
repeat
X[i+1]:=X[i] mod 10;
X[i+1]:=X[i+1]*trunc((X[i] mod 100)/10);
if X[i]>99 then X[i+1]:=X[i+1]*trunc((X[i] mod 1000)/100);
if X[i]>999 then X[i+1]:=X[i+1]*trunc((X[i] mod 10000)/1000);
if X[i]>9999 then X[i+1]:=X[i+1]*trunc((X[i] mod 100000)/10000);
if X[i]>99999 then X[i+1]:=X[i+1]*trunc((X[i] mod 1000000)/100000);
if X[i]>999999 then X[i+1]:=X[i+1]*trunc((X[i] mod 10000000)/1000000);
if X[i]>9999999 then X[i+1]:=X[i+1]*trunc((X[i] mod 100000000)/10000000);
if X[i]>99999999 then X[i+1]:=X[i+1]*trunc(X[i]/100000000);
i:=i+1;
until X[i]<10;
If i>9 then
begin
for k:=1 to i do write(X[k], '-');
writeln;
end;
N:=N+1;
until N=1000000000;
END.
</poem>
