ПОМОГИТЕ ПОЖАЛУЙСТА СРОЧНО ЗАДАЧИ ПО ПАСКАЛЮ, НАПИШИТЕ РЕШЕНИЕ УМОЛЯЮ!!!)))
1.Даны два числа. Определить,какое из них больше. Вывести знак ">" если первое число больше,или знак"<" в противном случае.
2.Проверить,является ли заданное целое число чётным. Вывести " YES " если число чётное, и "NO" в противном случае.

1) var a,b:real;beginwriteln ('Введите 2 числа');readln(a,b);if a>b then writeln('>')           else writeln('<');end.2) var x:integer;beginwriteln('Vvedite chislo');readln(x);if (xmod2=0) then writeln('Yes')                       else writeln('No');end.