)составить программу f= 1\x-7, если x> 7; 10,если

//PascalABC.NET
//Версия 3.3
var
  x, F: real;

begin
  write('Введите x: ');
  read(x);
  if(x > 7) then F := 1 / x - 7
  else F := 10;
  write('F = ', F);
end.