İsmi ekranda sekiz bloklu yazan program

uses crt;
   var
         x,y:integer;
         begin
         clrscr;
      for x:=1 to 8 do
      for y:=1 to 10 do
         begin
         gotoxy (9*x-3,2*y);
         writeln('forumrizem.com'); end;
         readln;
         end.

Linkback: https://www.buyuknet.com/ismi-ekranda-sekiz-bloklu-yazan-program-t8617.0.html