Составить программу для вывода на экран произведения трех введенных чисел, если все они не равны нулю. в противном случае вывести на экран их сумму

Program QuadraticEquation;
  Var a, b, c, d, x1, x2:real;
Begin
      Writeln('vvedite a, b, c');
      Readln(a,b,c);
      If A=0 then
           Writeln('algoritm ne primenim');
      D:=b*b-4*a*c;
      If D<0 then
           Writeln('deystvit resheniy net');
      If D=0 then
           Begin
                  x1:=-b/(2*a);
                  Writeln('x1=',x1);
           End
      Else
           Begin
                  x1:=(-b+sqrt(D))/(2*a);
                  x2:=(-b-sqrt(D))/(2*a);
                  Writeln('x1=',x1, 'x2=', x2);
           End;
end.
               Держи!)

В отличие от цикла while, условие вычисляется после очередной итерации цикла, и если оно истинно, то происходит выход из цикла. Таким образом, операторы, образующие тело цикла оператора repeat, выполняются по крайней мере один раз.

Цикл повторяется до тех пор, пока условие записанное после ключевого слова until, будет ложным (не выполняется). Как только это условие выполнится, происходит выход из цикла.

1)Цикл выполнится 1 раз:

i:=i-1=-1

s=-1/1=-1

-1<1 условие выполняется, цикл прерывается.

2)цикл выполнится 3 раза:

1. i:=i+1=1; 1>2 условие не выполняется, цикл продолжается.

2. i:=i+1=2; 2>2 условие не выполняется, цикл продолжается.

3. i:=i+1=3 3>2 условие выполняется, цикл прерывается.