Много баллов за ответ! Пожалуйста выполните задание в электронном виде(в написанном тексте есть ошибки).

program primer1;var   a, b, c, d, e, min: real;begin   writeln('вводим 5 чисел: ');   readln(a, b, c, d, e);   min := a;   if min > b then min := b;   if min > c then min := c;   if min > d then min := d;   if min > e then min := e;   write('Наименьшее значение = ', min)end.//---------------------------------------------------program primer2;var   a, b, c, D, x1, x2: real;begin   writeln('введите коэффициенты уравнения A, B, C: ');   readln(a,b,c);   D := b*b - 4*a*c;   if D>=0 then begin      x1 := (-b + Sqrt(D))/(2*a);      x2 := (-b - Sqrt(D))/(2*a);      writeln('x1 = ',x1,', x2 = ',x2)   end   else writeln('корней нет')end.//-----------------------------------------program primer3;var   N, i: integer;   a, b, max: real;begin   write('введите кол-во чисел: N = ');   readln(N);   write('введите первое число: a = ');   readln(a);   max := a;   for i := 2 to N do   begin      write('введите следующее число: ');      readln(b);      if b > max then max := b   end;   write('наибольшее значение = ', max)end.