турбо паскале

[tanyalove]

1.Составить программу, в которой выдается на печать соответствующее сообщение в виде корней квадратного уравнения ax в квадрате+bx+c=0

2.Вычислить и напечатать значения функции при следующих условиях:
а в квадрате-корень квадратный из b+п, при k=0
(b+п)+корень квадратный из с +п/2, при к=1
tg(b+п)+1/ac, при k=2

3. Вычислить по схеме Горнера:
1)Y=x в 10 степени+2x в 9 степени+3x в 8 степени+...+10х+11
2)Y=11х в 10 степени+10х в 9 степени+9х в 8 степени+...+2х+1

Program Operator;
  uses crt;
  var i:integer;
   begin
  write('Введите номер дня недели ');
  read(i);
  case i of
  1: write('Понедельник');
  2: write('Вторник');
  3: write('Среда');
  4: write('Четверг');
  5: write('Пятница');
  6: write('Суббота');
  7: write('Воскресенье')
  else write('Неверные данные')
  end;
  readln
  end.

Program Mas;
uses crt;
var a:array[1..10] of real;
    c:array[1..10] of integer;
    count1,count2,max2,i,j,buf:integer;
    max1:real;
begin
   count1:=0;
   count2:=0;
   writeln('Введите массив C:');
   for i:=1 to 10 do
    begin
     write('a[',i,']= ');
     readln(a[i]);
    end;
   writeln;
   writeln('Введите массив C:');
   for i:=1 to 10 do
    begin
     write('c[',i,']= ');
     readln(c[i]);
    end;
   clrscr;
   for i:=1 to 10 do
    begin
     if a[i]=0 then inc(count1);
     if c[i]=1 then inc(count2);
    end;
   if count1=count2
    then
     begin
       max1:=a[1];
       max2:=c[1];
       for i:=1 to 10 do
        begin
         if a[i]>max1 then max1:=a[i];
         if c[i]>max2 then max2:=c[i];
        end;
       writeln;
       writeln('Максимальный элемент массива А = ',max1);
       writeln('Максимальный элемент массива C = ',max2);
     end
    else




     begin        {пузырек}
       for i:=1 to 10 do
        for j:=i+1 to 9 do
         if c[i]>c[j]
           then
             begin
              buf:=c[i];
              c[i]:=c[j];
              c[j]:=buf;
             end;
       writeln;
       writeln('Массив С отсортированный');
       for i:=1 to 10 do
        write(c[i]:3);
     end;
     
     writeln;
     writeln('Количество нулей в массиве А = ',count1);
     writeln('Количество единиц в массиве С = ',count2);
     readln
end.

[tanyalove]

помогите решить пожалуйста

[ROMA2PVT]

-I-

var
a,b,c,x1,x2,d,x,x3,yravn:real;
y:integer;
begin
repeat
write('Введите A: ');
readln(a);
write('Введите B: ');
readln(b);
write('Ввведите C: ');
readln(c);
yravn:=a*sqr(x);
D:=(b*b)-(4*a*c);
writeln('ДИСКРИМИНАНТ:=',D);
if d>0 then
begin
x1:=(-b+sqrt(d))/(2*a);
x2:=(-b-sqrt(d))/(2*a);
writeln('Первый корень X1:=',x1);
writeln('Второй корень X2:=',x2);
end
else
if D=0 then
begin
x3:=(-b)/(2*a);
writeln('Единственный корень X:=',x3);
end
else if D<0 then
begin
writeln('Вещественных корней нет!!!' );
end;
writeln('Задача решена? Если да, то напишите "1", иначе "2"');
read(y);
until(y=1);
end.

-II-

Uses
  CRT;
Var
b,a,kl,c:real;
k:integer;
begin
write('Введите A: ');
readln(a);
write('Введите B: ');
readln(b);
write('Введите C: ');
readln(c);
write('Введите K: ');
readln(k);
case k of
0: begin
kl:=sqr(a)-sqrt(b+pi);
writeln('Значение функции при k=0 => ',kl);
end;
1: begin
kl:=(b+pi)+sqrt(c+(pi/2));
writeln('Значение функции при k=1 => ',kl);
end;
2: begin
kl:=(sin(b+pi)/cos(b+pi))+(1/(a*c));
writeln('Значение функции при k=2 => ',kl);
end;
end;
readln;
end.