Question

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

Answer 1

var
    x, y: real;

begin
    readln(x);
    writeln('Вариант 1');
    if x >= 0 then
        y := x * x
    else
        y := 2 * x - 5;
    writeln('y=', y);
   
    writeln('Вариант 2');
    if x < 1 then
        y := x * x - 2 * x
    else if x > 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 >= 20;
end.

Answer 2

Делалось на PascalABC, думаю на обычном тоже пройдет