L harfi şeklinde yazan program

uses crt;
      var
      x,y:integer;
      begin
      clrscr;
      for x:=1 to 8 do
      for y:=1 to 8 do
      begin
      gotoxy(9*x-3,3*y);
      if (x>=3) and  (y<=6) then
      writeln('')
      else
      writeln('forumrizem.com');
      end;
      readln;

      end.


Linkback: https://www.buyuknet.com/l-harfi-seklinde-yazan-program-t8619.0.html