Найдите сумму всех натуральных чисел меньше 7 pascal

Pascalabc.net 3.3.5, сборка 1659 от 09.04.2018 внимание! если программа не работает, обновите версию! begin   var (a,b,c): =readreal3('введите через пробел a,b,c: ');   var d: =b*b-4*a*c;   if d< 0 then writeln('нет действительных корней')   else       if d=0 then writeln('единственный корень ',-b/2/a)       else begin           d: =sqrt(d);           writeln('два корня: '-d)/2/a,' '+d)/2/a)           end end. пример введите через пробел a,b,c: 2.6 -3.1 0.15 два корня: 0.0505284246495728 1.14177926765812

Pascalabc.net 3.3.5, сборка 1659 от 09.04.2018 внимание! если программа не работает, обновите версию! begin   var a: =readreal('введите число: ');   var k: =readinteger('введите величину сдвига десятичной точки: ');   a: =a*10**k;   a.println end. примеры введите число: 12345.09876 введите величину сдвига десятичной точки: -3 12.34509876 введите число: 345.09876 введите величину сдвига десятичной точки: 4 3450987.6 введите число: 12345.09876 введите величину сдвига десятичной точки: 8 1234509876000 введите число: 12345.09876 введите величину сдвига десятичной точки: 15 1.234509876e+19 введите число: 1.23456789e-10 введите величину сдвига десятичной точки: -25 1.23456789e-35