Не удержался, сделал несколько заданий
1 задание
uses crt;
var x,y:real;
begin
clrscr;
write('введите х');read(x);
if x<=-5 then
y:=(x-2) * (x+4);
if (x>-5)and(x<=-2) then
y:=(-sqr(x));
if x>-2 then
y:=exp(x);
write(' y = ',y:5:2);
end.
3 задание
uses crt;
var x1,x2,y:real;r1,r2:byte;
begin
clrscr;
write('введите x1');read(x1);
write('введите x2');read(x2);
write('введите r1');read(r1);
write('введите r2');read(r2);
y:=ln(abs(cos(x1/r2)))*sqrt((x2-x1)/r1);
write(' y = ',y:5:2);
end.