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.