Программирование в Pascal ABC
Помогите пожалуйста решить задачу:
1.Написать программу вычисления значения функции
x * x, если 0 < x < 2;
Y = x + 4, если -2 < x ≤ 0;
0, в остальных случаях.
и объясните в решении что означают некоторые элементы

  • примени эту программу
    {y= x^3 - 1
    program Pr8;
    uses crt;

    var x,a,y:real;
    v:integer;
    BEGIN
    clrscr;
    write('ввести число А --> ');
    readln(a);
    write('ввести число X (<>0) --> ');
    readln(x);
    writeln('вычисление функции ');
    writeln('-------------------------');
    writeln (' x y ветка ');
    writeln('-------------------------');
    if x<5 then
    begin y:= a*x*x - ln(x*x); v:=1;
    end
    else
    if x>=7.8 then
    begin y:= sqrt(abs(x*x*x-1))-exp(x);v:=3; end
    else
    begin y:=a + sin(x); v:=2;end;
    writeln(x:5:2,y:11:3,v:5);
    writeln;
    writeln('Конец задачи');
    readln;
    END.

Вас заинтересует