//Pascal
var
n, i: integer;
begin
write('Введите n: '); readln(n);
for i := 1 to n do
writeln('Привет');
readln;
end.
Объяснение:
