Составьте программу запрашивающую у пользователя его имя и целое число n, а затем выводящую фамилию n раз на экран. пример работы: окно вывода как вас зовут? > > вася сколько раз вас прославить? > > 3 вася великий программист вася великий программист вася великий программист я уже не знаю че делать (сделать надо через паскаль)
var b, i: integer;
a: string;
begin
writeln('Как вас зовут?');
readln(a);
writeln('Сколько раз вас прославить?');
readln(b);
for i := 1 to b do
Writeln(i, ']', a, '-великий программист');
end.