uses CRT,Graph;
 
type Point=record
      x:real;
      y:real;
     end;
 
var input:text;
    D:array[-25..25] of Point;
    i:longint;
    a,b,c:real;
    temp1,temp2:integer;
 
 
 
procedure InputData;
begin
     assign(input,'INPUT.TXT');
     reset(input);
 
     // Ввод коэффициентов
     read(input,a,b,c);
 
     close(input);
end;
 
 
 
procedure DrawCoords;
begin
     SetColor(White);
 
     // Прямая OX
     line(80,180,320,180);
     line(320,180,310,170);
     line(320,180,310,190);
 
     // Прямая OY
     line(200,60,200,300);
     line(200,60,210,70);
     line(200,60,190,70);
end;
 
 
 
procedure DrawGraph;
begin
     SetColor(14);
 
     for i:=-23 to 24 do
      Line(trunc(D[i-1].x),trunc(D[i-1].y),trunc(D[i].x),trunc(D[i].y));
end;
 
 
 
begin
     ClrScr;
 
     temp1:=detect; temp2:=1;
     InitGraph(temp1,temp2,'C:\FPC\2.4.2\bin');
 
     InputData;
     for i:=-24 to 24 do
      begin
           D[i].x:=200+i*5;
           D[i].y:=180-(sqr(i)*a+i*b+c)*5;
      end;
 
     DrawCoords; DrawGraph;
 
     readln;
end.