Написать программу, которая n раз выводит на экран слова : , друг!

//Pascal
var
n, i: integer;
begin
write('Введите n: '); readln(n);
for i := 1 to n do
writeln('Привет, друг!');
readln;
end.

//Pascal
var  //Объявление переменных
n, i: integer;  //Объявляем переменные n - количество повторов и i - счетчик для цикла
begin  //Открытие логических скобок
write('Введите n: ');  //Выводит текст на монитор 'Введите n: '
readln(n);  //запрашивает ввод с клавиатуры и заносит значение в переменную n
for i := 1 to n do  //Цикл от 1 до числа n
writeln('Привет, друг!');  //С каждым шагом цикла выводится сообщение 'Привет, друг!'
readln;  //ожидание нажатия Enther после выполнения программы
end.