Помогите пожалуйста
Вычисления в математических задачах(PascalABC.NET)

// PascalABC.NET 3.3, сборка 1540 от 16.09.2017// Внимание! Если программа не работает, обновите версию!begin  var n:=ReadInteger('Введите натуральное четырехзначное число:');  var p:=1;  loop 4 do begin    p:=p*(n mod 10);    n:=n div 10    end;  Writeln('Произведение цифр числа равно ',p)end.ПримерВведите натуральное четырехзначное число: 2895Произведение цифр числа равно 720begin  var (a,b,c):=ReadReal3('Введите коэффициенты a b c:');  var d:=Sqrt(b*b-4*a*c);  if d=0 then Writeln('x=',-b/2/a)  else Writeln('x1=',(-b-d)/2/a,', x2=',(-b+d)/2/a)end.ПримерВведите коэффициенты a b c: 1 -0.5 -7.5x1=-2.5, x2=3