program Project2; {$APPTYPE CONSOLE} uses SysUtils; Procedure Print(Line : String); begin writeln(Line); if Line[1] <> Line[Length(line)] then print(Copy(Line,2,Length(Line)-1)+line[Length(Line)]+line[Length(Line)]); writeln(Line); end; begin Print (' *'); readln; end.