помогите решить пожалуйста. Очень нужно. Все во вложении, задача 7.

+ 0 -

Олямама

11 мая 2014 г., 16:41:43 (9 лет назад)

const

  pi = 3.14;
var
  xt, yt, y:real;
begin
  write('xt = ');
  readln(xt);
  write('yt = ');
  readln(yt);

  if xt >= pi then
    y := 0
  else
    if xt >= 0 then
      y := sin(xt)
    else
      if xt >= -1 then
        y := (-1) * xt
      else
        y := xt + 2;

  if yt > y then
    writeln('Точка лежит выше графика функции')
  else
    if yt < y then
      writeln('Точка лежит ниже графика функции')
    else
      writeln('Точка лежит на графике функции');
  readln;
end.