НУЖНО СДЕЛАТЬ В ПРОГРАММЕ ПАСКАЛЬ.Пожалуйста посчитайте ПОЖАЛУЙСТА!!!Задание № 2:Ввести 2 числа. Если их сумма больше 50, прибавить к первому 10, иначе вычесть из второго 20. Вывести на экран оба числа. Задание № 3: Ввести число. Если оно четное, вычесть из него 4, если нечетное - умножить на 2.

Задача №1

program ex1;

var x, y:integer;

begin

   writeln ('Введите x, y');

   readln(x, y);

   if x + y > 50 then x:=x+10 else y:=y-20;

   write(x, y);

end.

Задача №2

program ex2;

var x:integer;

begin

   writeln('Введите число');

   readln(x);

   if x mod 2 = 0 then x:=x-4 else x:=x*2;

   writeln(x);

end.