Viết chương trình nhập vào 1 số nguyên a. Vẽ hình vuông được tạo bởi số lượng "*" là số a vừa nhập. (Pascal)

Vd: Nhập vào a là 5

uses crt;
var a,i,j:longint;
begin
 clrscr;
  write('nhap canh cua hinh vuong:');readln(a);
  for i:=1 to a do
        begin
         for j:=1 to a do if(i=1)or(i=a)or(j=1)or(j=a)then write('* ')
         else write('  ');
         writeln;
        end;
 readln;
end.

uses crt;
var a,i,j:longint;
begin
clrscr;
write('nhap canh cua hinh vuong:');readln(a);
for i:=1 to a do
begin
for j:=1 to a do if(i=1)or(i=a)or(j=1)or(j=a)then write('* ')
else write('  ');
writeln;
end;
readln;
End.