Program l6n9;
procedure logo();
begin
writeln('****************************'
;
writeln(''
;
writeln('* Программа *'
;
writeln(''
;
writeln('* название *'
;
writeln(''
;
writeln('* Автор: ФИО *'
;
writeln(''
;
writeln('****************************'
;
end;
var i: integer;
begin
logo();
end.
Так выглядит заставка, через какую процедуру добавлять , чтобы выводилась в начале программы?
procedure logo();
begin
writeln('****************************'
writeln(''
writeln('* Программа *'
writeln(''
writeln('* название *'
writeln(''
writeln('* Автор: ФИО *'
writeln(''
writeln('****************************'
end;
var i: integer;
begin
logo();
end.
Так выглядит заставка, через какую процедуру добавлять , чтобы выводилась в начале программы?