program titul;uses crt;var x,y:byte;s:string;beginclrscr;s:='';for x:=1 to 80 do {смотря сколько столбцов на экране}s:=s+'#'; {любой символ для рамки}write(s);gotoxy(1,24); {самая нижняя строка, первый столбец}write(s);for y:=1 to 24 dobegingotoxy(1,y);write('#');end;for y:=1 to 24 dobegingotoxy(80,y);write('#');end;GotoXY(30,11);write('My own program on TP7');GotoXY(28,13);write('Press any key to continue');readkey;end.