необходимо безотлагательно решить в паскале то что на фото

// PascalABC.NET 3.4.2, сборка 1805 от 29.09.2018

// Внимание! Если программка не работает, обновите версию!

1

begin

 for var i := 0 to 45 do

 begin

   var x := -5 + 0.2 * i;

   var y := Абс(x - 1) + 3;

   Writeln(x:4:1, y:6:1)

 end

end.

2

begin

 var (a, b) := ReadInteger2('Введите a и b:');

 Range(a, b).Select(x -gt; x * x * (x - 1) + 1).Where(y -gt; y.IsEven).Sum.Println

end.

3

begin

 Range(10, 99).Where(n -gt; (n mod 10) * (n div 10) gt; 10).Println

end.