uses crt; var a,b,i:word; procedure hcn(dai,rong:word); var i,j:word; begin for i:=1 to dai do write('*'); writeln; for j:=1 to rong -2 do begin write('*'); for i:=1 to dai -2 do write(' '); writeln('*'); end; for i:=1 to dai do write('*'); writeln; end; begin clrscr; write('cdai, crong: '); readln(a,b); writeln; for i:=1 to 5 do begin hcn(a,b); writeln; end; readln end.
