program funktsiooni_graafik;
uses graph;

function f(x: real): real;
begin
 f:=x*x;
end;

var d, m, x, y: integer;
begin
 d:=detect; initgraph(d, m, '');
 for x:=-100 to 100 do
     putpixel(x+200, 400-round(f(x)), white);
 readln;
 closegraph;
end.