Дано слово "игромания" получить 5 других слов

var 

i,n: integer;

begin

readln(n);

for i: =1 to n-1 do write(i*i: 5);

end.

1)никакие художники не могут повторить замечательный стиль рисования известного художник маковского

2)все великие писатели в своё время переносили критику,но это делало их только сильнее.

дальше не придумал

(с уважением tipaeinstein)