{* Задача 77 *}

Unit ZADACH77;
Interface
Implementation
Begin
 writeln('Составить программу, которая выводит строку, состоящую из одинаковых символов. Длина и символ, который выводится, являются параметрами процедуры. ');
End.

Program pr2;

Uses zadach77.pas; {* Эту строку можно удалить *}
Procedure writestars(ch : char;
c : integer);
Var {* Объявление переменных *}
  i : integer;
Begin
  For i := 1 To c Do {* Переменная i увеличивается с 1 до c *}
    write(ch);
End;
Begin
  writestars('!', 5);
  readln; {* Ждем подтверждения пользователя *}
End.