program funktsiooni_graafik;
uses graph;

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

var d, m, x, y, vx, vy, ux, uy: integer;
begin
 d:=detect; initgraph(d, m, '');
 vx:=0; vy:=round(f(x));
 for x:=1 to 100 do
 begin
   ux:=x; uy:=round(f(x));
   line(vx, vy, ux, uy);
   vx:=ux; vy:=uy;
 end;
 readln;
 closegraph;
end.