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

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

Забыл блок-схему))) Добавил.

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

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