Question

Помогите решить задачу на Pascal ABC, пожалуйста.
Для данного целого x найти значение следующей функции f, принимающей значения целого типа:
f(x)= 9x/17 при x<1 или x>5
x^2+81 (под корнем) , в противном случае.

Answer 1

var
  x,f:real;
begin
  Write('x='); Read(X);
  if (x<1) or (x>5) then f:=9*x/17
  else f:=Sqrt(x*x+81);
  Writeln('f(x)=',f)
end.