uses crt;
var
a,b:integer;
begin
a:=1;
for b:=10 downto 1 do
begin
gotoxy (a,b);
writeln ('SeLCuX');
a:=a+1;
end;
for a:=1 to 10 do
begin
gotoxy (a,b);
writeln ('SeLCuX');
b:=b+1;
end;
readln;
end.
SeLCuX
selcux@hackermail.com
selcux
selcux@hackermail.com