Помогите пожалуйста с информатикой

что такое ШАЯ?

на паскале пойдет?

пойдет

Var
    x, y: real;

begin
    readln(x);
    writeln('Вариант 1');
    if x gt;= 0 then
        y := x * x
    else
        y := 2 * x - 5;
    writeln('y=', y);
   
    writeln('Вариант 2');
    if x lt; 1 then
        y := x * x - 2 * x
    else if x gt; 2 then
        y := cos(x)
    else
        y := sqrt(x + 5);
    writeln('y=', y);
   
    writeln('Вариант 3');
    x := 0.1;
    repeat
        writeln('x=', x, ', y=', x * x - 1);
        x := x + 0.1;
    until x gt;= 20;
end.