Question

Нужно написать текст программы в Паскале. Пожалуйста, помогите!
Дано действительное число a. Вычислить f(a), если:

Answer 1

var result, x : real;const Pi = 3.14;function f(temp : real) : real;
begin
if temp <= 0 then
 f := 0
else
 if (temp > 0) and (temp <= 1) then
  f := temp * temp - temp
   else
    f := temp * temp - sin(Pi * temp * temp);
end;begin
write('X = ');
readln(x);
result := f(x);
write('f(x) = ', result : 0 : 2);
end.

Answer 2

Обращайтесь)