Процедуры..

[Cepgeich]

Нужно написать программу "Визитка", выводящую в начало распечатки результатов данные об авторе программы: ФИО номер группы, номер бригады, номер задания. Входным данным для процедуры явл. "номер задания". Визитка должна быть с рамкой из символов

[ROMA2PVT]

Program Visitka;
Uses
   CRT;
Var
   num:integer;

Procedure Vis(k:integer);
  begin
      writeln('ФИО: Мищенко Р.А.');
      writeln('№ группы: 2');
      writeln('№ задания: ',k);
  end;

Begin
     Clrscr;
     write('Введите номер задания: ');
     readln(num);
     writeln;

     Vis(num);

     Readkey;
end.

Ну а рамку сам составляй в процедуре.

[Cepgeich]

Спасибо большое

[ROMA2PVT]

Не за что.