Как сделать титульный лист в паскаль? Не сложный желательно, ибо я в 8-9 классе

Question

Как сделать титульный лист в паскаль? Не сложный желательно, ибо я в 8-9 классе

Answer 1

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