Графика в паскале

Program pr6;
Uses Graph;
var
gd,gm,i,X,Y:integer;
begin
randomize;
gd:=VGA;gm:=2;
Initgraph(gd,gm,' ');
for i:=1 to 10000 do
 begin
  x:=random(640);
  y:=random(480);
  if x>480 then putpixel(x,y,14);
  if (x<=480)and(y>x) then putpixel(x,y,2);
  if (x<=480)and(y<=x) then putpixel(x,y,4);
 end;
ReadLn;
CloseGraph;
End.

write('a=');readln(a);
................................
if a=0 then write('Это не квадратное уравнение');

program KV_UR;
uses crt;
var a,b,c,d,x1,x2:real;
begin
clrscr;
write('a=');readln(a);
write('b=');readln(b);
write('c=');readln(c);
if a=0 then writeln('Это не квадратное уравнение!')
else
 begin
  d:=b*b-4*a*c;
  if d<0 then writeln('Действительных корней нет!')
  else if d=0 then
   begin
    x1:=-b/(2*a);
    writeln('x1=x2=',x1:0:2);
   end
  else
   begin
    x1:=(-b-sqrt(d))/(2*a);
    x2:=(-b+sqrt(d))/(2*a);
    writeln('x1=',x1:0:2,'   x2=',x2:0:2);
  end;
 end;
readln
end.