Не смог здедать помогите пж

//PascalABC.NET 3.1 сборка 1239
begin
    var x := ReadlnReal(Введите х = );
    if x = 0 then writeln(null)
    else  begin
        if x = 2 then writeln(y = , sqrt(sqr(x) + 2));
        if (x gt;= 3) and (x lt;= 6) then writeln(y = , 3 * sqr(x) - 5);
    end;
    writeln;
    
    var n := ReadlnInteger(Введите n = );
    writeln(Квадрат числа = , n * n);
    writeln(Последняя цифра квадрата по последней цифре числа = , sqr(n mod 10) mod 10);
    writeln;
    
    var a := ReadlnReal(Введите a = );
    var b := ReadlnReal(Введите b = );
    var c := ReadlnReal(Введите c = );
    writeln(Сумма = , abs(a + b + c));
end.