Напишите программы на PascalABC

                                          PascalABC.NET                                           

Задание 1:

###'Введите два числа X и Y:'.Pr;var (X, Y) := RI2;var minXY := min(X, Y);if X = minXY then X := 0;if Y = minXY then Y := 0;$'Результат: {X} {Y}'.Pr

Задание 2:

###'Введите a и b:'.Pr;var (a, b) := RI2;'Введите три числа:'.Pr;$'Результат: {RAI(3).Wh(x → x in a..b).Str}'.Pr