functie.pas

This ar the basic programs that i did in highschool. From very simple to medium programs. From array

program functie;
var f,x:real;
begin
write('x= ');
readln(x);
if x<=10 then f:=x*x+x-2
         else if x<=20 then f:=1/x
                        else f:=(x-1)/(x+1);
writeln('f(x)= ',f:4:2);
end.