program Tema;
valoare,y:real;
function functia_mea(x:real):real;
begin
if(x<0) then
functia_mea=5*x;
else if(x>4)
functia_mea=x+6;
else
functia_mea=0;
end;
begin
writeln('Scrieti valoare de test: ');
read(valoare);
y=functia_mea(valoare);
if(y=0) then
writeln('Valoarea data a fost in intervalul 0-4 unde nu a fost definita functia');
else
writeln('Functia mea pentru valoarea ',valoare,' da rezultatul ',y);
end.
