Дано натуральное число n и действительное a. Вычислите a+2a+3a+...+na
Напишите пожалуйста программу While, Repeat Until

Program n1;var a,s:real;n,i:integer;beginreadln(a);readln(n);s:=0;for i:=1 to n dos:=s+a*i;writeln(s);end.