Кто может написать мне программу сегодня?

[Mad_Cat]

var
    a, b, c: real;
    x1,x2,y1,y2:Real;
procedure sq (a,b,c: real;var x1,x2:Real);
    var d: real;
    begin
        d := b * b - 4 * a * c;
        if d >= 0 then begin
            x1 := (-b + sqrt (d)) / (2 * a);
            x2 := (-b - sqrt (d)) / (2 * a);
        end
        else
          begin
					x1:=100500;
					x2:=100500;
					end;
    end;

begin
sq (12, 0.5, 4,x1,x2); // 12;0.5;4 поменяйте на те которые нужны вам см пост #10
a:=20;
while a<=210 do begin
		sq (A, 18, 0.25,y1,y2);
 if (y1<>100500) and (x1<>100500)and (y2<>(-x2))  then
  writeln('a=',a:3:0,' z=',(x1+y1)/(y2+x2))
else writeln('a=',a:3:0,'==Error===');
a:=a+20;
end;
readln
end.