Question

по представленной блок-схеме составьте программу вычисления функции у при заданном с клавиатуры значения х

Answer 1

var x,y:real;
begin write('x=');
readln(x);
if x<=-1 then y:=1
else if(x>-1)and(x<=2) then y:=x else y:=1/(x*x);
write('y=',y:0:2);
readln
end.