Найти сумму всех n-значных чисел - VB

while a<=N do
 
begin
 
Summa:=Summa+a;
 
a := a + 1
 
end;
 
Writeln ( 'Результат первого суммирования:', Summa);
 
{Цикл с постусловием}
 
а:=1; Summa:=0;
 
 
repeat
 
Summa:=Summa+ a;
 
а:=а+1
 
until a>N;
 
Writeln (' Результат второго суммирования:', Summa);
 
{Цикл с параметром}
 
Summa:=0;
 
 
for а : = 1 to N do Summa: =Summa+a;
 
Writeln (' Результат третьего суммирования:', Summa)
 
 
end.