PROGRAM MEMBUAT ANGKA 9 PADA PASCAL

uses wincrt;

var
 a, b, x, y : integer;
begin
write ('masukkan nilai a:');read(a);
write ('masukkan nilai b:');read(b);
      for x := 1 to a do
      begin
      for y := 1 to b do
          begin if ((x=1) or (x=a) or (y=1) or (y=b)) then write ('*')
             else write (' ');
          end;
      writeln;
      end;
      for x := 2 to a do
      begin
      for y := 1 to 1 do
      begin if (( x=1) or (x=a) or (y=1) or (y=b)) then write (' ')
         else write (' ');
      end;
      for y:= 2 to b do
      begin if (( x=1) or (x=a) or (y=1) or (y=b)) then write ('*')
         else write (' ');
         end;
      writeln;
end;
end.