Составьте программу вычисления корней квадратного уравнения aх^2+вх+с=0 по данным значениям его коэффициентов.

Var a, b, c, d, x1, x2 : real; \\ переменных действительных чисел. begin  write('a = '); readln(a);     \\запрос у пользователя первого коэффициента write('b = '); readln(b);     \\запрос у пользователя второго коэффициента write('c = '); readln(c);     \\запрос у пользователя третьего коэффициента d : = b*b - 4*a*c;             \\ расчет дискриминанта if d=0 then                 \\ветка для решения при нулевом дискриминанте begin  x1 : = b / (2 * a)  writeln (x1: 3: 3);   end                       \\ окончание при нулевом дискриминанте else  if d> 0 then       \\ ветка для решения при положительном дискриминанте begin  x1 : = (- b + sqrt(d) / (2 * a);     \\ первый корень x2 : = (- b - sqrt(d) / (2 * a);       \\ второй корень writeln (x1: 3: 3, ' ', x2: 3: 3);     \\ вывод ответа end  else                   \\ ветка решения для отрицательного дискриминанта writeln ('нет действительных корней');   end. 

пардоньте, прослоупочил про подпрограммы)

uses crt; var a: array[1..25,1..20] of integer; i,j,min,k,n,m: integer; procedure input_array(n,m: integer; var a: array[1..25,1..20] of integer); var i,j: integer; begin randomize; for i: =1 to n do begin for j: =1 to m do begin a[i,j]: =random(101)-50; write(a[i,j]: 4); end; writeln; end; end; procedure del(n,m,min,k: integer; a: array[1..25,1..20] of integer); var i,j: integer; begin for i: =1 to n do begin if i=k then i: =i+1; for j: =1 to m do write(a[i,j]: 4); writeln; end; end;

beginread(n,m); input_array(n,m,a); min: =a[1,1]; for i: =2 to n do for j: =1 to m do if a[i,j]< min then begin min: =a[i,j]; k: =i; end; writeln; writeln; del(n,m,min,k,a); end.

const

    s = 20; {поменять на 100 для второй }

var

    days: integer;

    distance, day_distance: real;

begin

    days : = 1;

    day_distance : = 10;

    distance : = day_distance;

   

    repeat

        day_distance : = day_distance * 1.1;

        distance : = distance + day_distance;

        days : = days + 1;

    until distance > = s;

    writeln(days);

end.