Тармақталу олгаритымінің блок- сызбасындағы шарттың берілуі қандай фигураммен сипаталады

Var
  a, b, c, d: real;
begin
  write('Введите коэффициенты a,b,c ');
  readln(a, b, c);
  d := sqr(b) - 4 * a * c;
  if d = 0 then
    writeln('Корень один x = ', (-b / (2 * a))
    else if d >0 then
      writeln('x1 = ',(-b + sqrt(d)) / (2 * a), ' x2 = ',(-b - sqrt(d)) / (2 * a))
    else writeln('Действительных корней нет');
end.

Тест №1

Введите коэффициенты a,b,c 1 -5 6
x1 = 3 x2 = 2

Тест №2

Введите коэффициенты a,b,c 1 2 3
Действительных корней нет

Тест №3

Введите коэффициенты a,b,c 1 0 0
Корень один x = 0

//Pascal ABC.NET v3.1 сборка 1172

//Продвинутый вариант

Var
 n:integer;
begin
 readln(n);
 writeln('Summary=',range(1,n).Where(x -> x mod 3=0).where(x -> x mod 10=2).Sum);
 writeln('Count=',range(1,n).Where(x -> x mod 3=0).where(x -> x mod 10=2).Count);
end.

//"Школьный" вариант
Var
 i,n,sum,co:integer;
begin
 readln(n);
 for i:=1 to n do
  if (i mod 3=0) and (i mod 10=2) then
   begin
    co:=co+1;
    sum:=sum+i;
   end;
 writeln('Summary=',sum);
 writeln('Count=',co);
end.

Пример ввода:
14
Пример вывода:
Summary=12
Count=1