Question

Привет. Помогите, пожалуйста с паскалем :)
F(x)={-3x+9, если x<=7; 1/x-7, если x>7

Answer 1

program z1;
  uses crt;
  var y, x: real;
  begin
    readln(x);
    if x <= 7 then y:=-3*x+9 else y:=1/x-7;
    write(y);
  end.