Вывести n раз слово "цикл' в строку. паскаль авс

Очевидно над выполнить это в цикле):var
    i, n: integer;
 
begin
    write ('Количество раз: ');
    readln (n);
 
    for i := 1 to n do
        write ('цикл');
 
readln
end.