Помогите пожалуйстаВычисления в математических задачках(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
Творение цифр числа равно 720

begin
  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.5
x1=-2.5, x2=3