Program Proizv;
Uses CRT;
Var i,h:Integer;
        S:Longint;
Begin
ClrScr;
S:=17;
h:=17;
Write(h);
For i:=1 to 5 do
     Begin
     h:=h+5;
     S:=S*h;
     Write(' * ',h);
     End;
Writeln(' = ',S);
ReadKey;
End.

Program Words;
Uses CRT;
Const s: String = 'abcdefghijklmnopqrstuvwxyz';
Var i,j: Byte;
Begin
For i := 1 to length(s) do
     Begin
     For j := 1 to i do Write(s[length(s)-i+1]);
     ReadKey;
     End;
End.