Question

f=x+a,4<x<7
   x-a,10<x<12
   x*a<ост случаи
pascal abc

Answer 1

var
  a,x,f:integer;

begin
  Write('x=');
  Readln(x);
  Write('a=');
  Readln(a);
  if (x>4) and (x<7) then f:=x+a
  else if (x>10) and (x<12) then f:=x-a
  else f:=x*a;
  Writeln('f=',f)
end.