PROGRAM MEMBUAT KATA ATAU KALIMAT MEMBENTUK TANDA SILANG

uses crt;
var
data: string;
a,i,j: integer;
begin
clrscr;
     write('Masukan Kata= '); readln(data);
     a:=length(data);
     gotoxy(40-a div 2,12-a div 2);
     for i:=1 to a do
     begin
     gotoxy((40-a div 2)+i,(12-a div 2)+i);
     write(data[i]);
     end;

     for j:=1 to a do
     begin
     gotoxy((40-a div 2)+j,(14+a div 2)-j);
     write(data[j]);
     end;
     readln;
end.