İsmi ekrana 3 blok halinde ortalı yazan program

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


Linkback: https://www.buyuknet.com/ismi-ekrana-3-blok-halinde-ortali-yazan-program-t8615.0.html