program AddNBNTimes;

var

 a, b, n, i: integer;

begin

 write('Введите число a: ');

 readln(a);

 write('Введите число b: ');

 readln(b);

 write('Введите количество повторений n: ');

 readln(n);

 for i := 1 to n do

 begin

   a := a + b;

 end;

 writeln('Результат: ', a);

 readln;

end.

Ответ:

Объяснение: проверь , если правильно отпишитесь