По паскалю, напишите решение 1.даны два числа. определить,какое из них больше. вывести знак "> " если первое число больше,или знак"< " в противном случае. 2.проверить,является ли заданное целое число чётным. вывести " yes " если число чётное, и "no" в противном случае.

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