Question

СРОЧНО   Составить блок схему и программу для вычисления значения функции y в зависимости от х

Answer 1

var
  x, y: real;

begin
  Write('Введите значение аргумента: ');
  Readln(x);
  if x <= 1 then y := -1 / sqr(x)
  else if x <= 0 then y := -x
  else y := -sqr(x);
  Writeln('Значение функции равно ', y)
end.

Тестовое решение:

Введите значение аргумента: -2.7
Значение функции равно -0.137174211248285

Answer 2

Вот так вот получилось. Записать можно каждый прямоугольник под ромбом 

Answer 3

Вот немного код выше можно подредактировать "Writeln('Значение функции равно ', y:4:2)"