câu 1;
program bailam;
uses crt;
var i,j,dai,rong:integer;
begin
clrscr;
write('Nhap chieu dai chieu rong'); readln(dai,rong);
for i:=1 to dai do write('.');
writeln;
for i:=1 to (rong-2) do
begin
write('.');
for j:=1 to (dai-2) do write(#32);
writeln('.);
end;
for i:=1 to dai do write('.');
Readln;
End.