Сделать на Pascal.Составить программу для вычисления функции, заданой графиком:

var y,xn,xk,s:real;beginreadln(s,xn,xk);//s-шаг функции xn и xk - интервал иксов, в котором мы рассматриваем функциюwriteln('x','   ','y');while xn<xk do beginwhile xn<0 do begin y:=0; xn+=s; writeln(xn,'   ',y); end;while y<4 do begin y:=power(xn,2); xn+=s; writeln(xn,'   ',y); end;while xn<xk do begin y:=4; xn+=s;  writeln(xn,'   ',y); end;exit;end;end.

var x,y:real;beginwrite('x = ');readln(x);if (x<-4)or(x>4) then writeln('Функция не определена') else begin    if x<0        then y:=0        else if x<2 then y:=x*x                    else y:=4;   writeln('Y = ',y);   end;end.Пример:x = 1.5Y = 2.25