ДАЮ 15 БАЛЛОВ ЗА ПРАВИЛЬНОЕ РЕШЕНИЕ1. напишите программку для решения следующей

1.

var

   a : integer;

begin

   write('введите число: ');

   readln(a);

   if a mod 2 = 0 then writeln('четное') else writeln('нечетное');

end.

2.

var

   x, y : integer;

begin

   write('введите x=');

   readln(x);

   y := x;

   writeln('y=', y);

end.

во второй задачке не было обозначено как считать Y потому я просто сделал его одинаковым X. подходящую формулу напишешь сам