//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.