Составьте программу для вычисления след. функции y=x^+1 если x> 1

Uses graphabc; type fun = function (x: real): real; function f(x: real): real; begin  result : = x*x +1 ; end; // l (logical) - логические координаты// s (screen) - координатыprocedure drawgraph(x1,x2: real; f: fun);   var  xl0,wl,yl0,hl: real;   xs0,ws,ys0,hs: integer;   function ltosx(xl: real): integer;   begin    result : = round(ws/wl*(xl-xl0)+xs0);   end;   function ltosy(yl: real): integer;   begin    result : = round(hs/hl*(yl-yl0)+ys0);   end;   function stolx(xs: integer): real;   begin    result : = wl/ws*(xs-xs0)+xl0;   end; begin // drawgraph  xs0 : = 0;   ys0 : = windowheight-1;   ws : = windowwidth;   hs : = windowheight-1;       xl0 : = x1;   wl : = x2-x1;   var min : = real.maxvalue;   var max : = real.minvalue;       var yi: array of real;   setlength(yi,ws+1);   for var xi: =0 to ws do  begin  if xi > 320 then begin    yi[xi] : = f(stolx(xi+xs0));     if yi[xi]< min then        min : = yi[xi];     if yi[xi]> max then        max : = yi[xi];       end;   end;       yl0 : = min;   hl : = -(max-min);   // нарисовать оси системы координат  line(0,ltosy(0),ws,ltosy(0));   line(ltosx(0),0,ltosx(0),hs);   pen.color : = clblue;   moveto(xs0,ltosy(yi[0]));   for var xi: =xs0+1 to xs0+ws do    lineto(xi,ltosy(yi[xi-xs0])); end; procedure resize; begin  clearwindow;   drawgraph(-60,60,f);   redraw; end; begin  lockdrawing;   setwindowcaption('график функции: масштабирование');   drawgraph(-60,60,f);   redraw;   onresize : = resize; end.

1.5 Мбайт=1536 Кбайт