İsmi ekranda yarısında yazmaya başlayan program.

uses crt;
   var
   x,y:integer;
   begin
   clrscr;
   for x:=1 to 3 do
   for y:=1 to 5 do
   begin
   gotoxy(30*x-25,2*y+14);
   writeln(‘sonnur’);
   end;
   readln;
   end.

Linkback: https://www.buyuknet.com/ismi-ekranda-yarisinda-yazmaya-baslayan-program-t8616.0.html