ПОМОГИТЕ ПАСКАЛЬ Составить ФУНКЦИЮ, которая печатает ** экране N звездочек. N - число,...

Question

ПОМОГИТЕ ПАСКАЛЬ Составить ФУНКЦИЮ, которая печатает на экране N звездочек. N - число, которое вводится с клавиатуры.

Answer 1

Procedure pechat(n: longint);
var
i: longint;
begin
for i := 1 to n do
write('*');
end;

var
N: longint;
begin
readLn(N);
pechat(N);
end.