Ответ:

Посмотрите вывод в консоль, такое решение подойдет?

Объяснение:

var i, n, sum: integer; begin

sum:=0;

writeln('Введите число');

readln(n);

i:=0;

while i<n do

begin

i:=i+1;

sum:=sum+n;

writeln(sum);

end;

end.