Посмотрите вывод в консоль, такое решение подойдет?
Объяснение:
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.
