Составьте программу запрашивающую у пользователя его имя и целое число N, а затем...

Question

Составьте программу запрашивающую у пользователя его имя и целое число N, а затем выводящую фамилию N раз на экран.
Пример работы:
Окно вывода
Как вас зовут? >>Вася
Сколько раз вас прославить? >>3
Вася великий программист
Вася великий программист
Вася великий программист
Помогите я уже не знаю че делать (сделать надо через паскаль)

Answer 1

program z1;
var  b, i: integer;
  a: string;
begin
  writeln('Как вас зовут?');
  readln(a); 
writeln('Сколько раз вас прославить?'); 
 readln(b);
  for i := 1 to b do 
    Writeln(i, ']', a, '-великий программист');
end.