vari, n,l: integer;beginwrite ('Введите число: ');readln (n);i := 1;repeatl:=l+i;inc(i);until i > n;write('Сумма всех чисел равна: ', l);end.
var
i, n,l: integer;
begin
write ('Введите число: ');
readln (n);
i := 1;
repeat
l:=l+i;
inc(i);
until i > n;
write('Сумма всех чисел равна: ', l);
end.