Procedure Rectangle(Width: integer); var i: integer; begin for i := 1 to Width do write('*'); writeln; if width <> 1 then write('*'); writeln('*':Width-1); for i := 1 to Width do write('*'); end;
var N: integer; begin write('N = '); readln(N); Rectangle(N); end.
var i: integer;
begin
for i := 1 to Width do write('*');
writeln;
if width <> 1 then write('*');
writeln('*':Width-1);
for i := 1 to Width do write('*');
end;
var
N: integer;
begin
write('N = ');
readln(N);
Rectangle(N);
end.