Решите алгоритм у=√x^2-4 / a-b^2+2c

Var
   x,a,b,c:real;
Begin
Write('x = ');ReadLn(x);
Write('a = ');ReadLn(a);
Write('b = ');ReadLn(b);
Write('c = ');ReadLn(c);
a:=a-b*b+2*c;
if (a = 0) then WriteLn('Ошибка: На ноль делить нельзя!')
else if x*x < 4 then
     WriteLn('Ошибка: Квадратный корень нельзя вычислить для отрицательного числа!')
     else WriteLn('y = ',Sqrt(x*x-4)/a)
End.

1.var a,b:integer;
begin
writeln('введите числа (0 признак окончания ввода)');
readln(a);
b:=1;
while (a<>0) do begin
readln(a);
if (a mod 2 = 0) and (a<>0) then b:=b*a;
end;writeln('произведение чётных  чисел последовательности ',b);
end.
2.var a,b:integer;
begin
b:=0;
a:=1;
while (a<=10000) do begin
if (a mod 10 = 0) then b:=b+1;
a:=a+1;
end;
writeln('количество круглых чисел ',b);
end.
3.var a,b:integer;
begin
writeln('введите числа (1 признак окончания ввода)');
readln(a);
b:=0;
while (a<>1) do begin
readln(a);
if (a mod 7 = 0) then b:=b+1;
end;
writeln('цифра 7 встречается ',b,' раз');
end.
4.var a,b:integer;begin
writeln('введите числа (0 признак окончания ввода)');
b:=0;
a:=1;
while (a<>0) do begin
readln(a);
if (a<>0) then b:=a*a+b;
end;writeln('сумма квадратов ',b);
end.

 const n=5;var i,j,s,p: integer;    a: array [1..n,1..n] of integer;    b,c: array [1..n] of integer;begin  for i:=1 to n do  for j:=1 to n do  a[i,j]:=Random(100);{ вывод на экран }    for i:=1 to n do  begin    for j:=1 to n do    write(a[i,j]:4);    writeln;  end;  { цикл по массиву }  for j:=1 to n do {цикл по колонке }  begin    s:=0;    p:=1;    for i:=1 to n do {цикл по строке}    if (a[i,j] mod 2 = 0) then    p:=p*a[i,j]    else s:=s+a[i,j];    if (p>1) then c[j]:=p    else c[j]:=0;     if (s>0) then b[j]:=s    else b[j]:=0;  end;     writeln('массив для четных элементов');  for i:=1 to n do write(c[i]:10);    writeln;  writeln('массив для нечетных элементов');  for i:=1 to n do write(b[i]:4); end.