uses crt;
const s:array[1..3] of string=('123456789','456788','47231255');
//здесь ваш стих
procedure vyvod(k,n:integer);
var i:integer;
begin
for i:=1 to 3 do
writeln(s[i]);
if k<n then vyvod(k+1,n)
end;
var n:integer;
begin
write('n=');
read(n);
vyvod(1,n)
end.