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.