{* Задача 76 *}

Unit ZADACH76;
Interface
Implementation
Begin
 writeln('Составить программу, в которой на экран выводится строка, состоящая из *(звездочка). Количество * является параметром функции, а вывод * осуществляется в функции. ');
End.

Program zadach76;

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