Program Huruf X Pascal

program TP;
uses crt;
var n : integer;
procedure X;
var i,j : integer;
begin
if n > 3 then begin
  for i:=1 to n do begin
    for J:=1 to n do begin
      if (i=j) or ((i+j)=(n+1)) then begin
        write('*');
      end else
        write(' ');
    end;
    writeln;
  end;
end else
  write('n tidak mencukupi');
end;

begin
clrscr;
write('masukkan n : '); readln(n);
X;
readln;
end.

Posted in: Program Pascal