Три задачки Паскаля. Но очень срочные!!!

[lisa_alisa]

1. Даны целые числа n и m, если числа не равны, то заменить каждое из них одним и тем же числом равным большему из исходных, а если равны - заменить числа нулями.

2. Дано трёхзначное число N. Проверить будет ли чётным числом сумма его цифр.

3. Определить, является ли чётным двузначное число.

За ранее спасибо!!!

[Sazary]

Первая:

uses crt;
var n,m : integer;
begin
clrscr;
write('Enter m: ');
readln(m);
write('Enter n: ');
readln(n);
if m>n then n:=m
else if m<n then m:=n
else
 begin
 m:=0;
 n:=0;
 end;
writeln('New m= ',m,'; new n= ',n);
readln;
end.

[Sazary]

Вторая:

uses crt;
var n,s,i : integer;
begin
clrscr;
write('Enter n: ');
readln(n);
s:=0;
while n>0 do
 begin
 i:=n mod 10;
 s := s + i;
 n := n div 10;
 end;
if s mod 2 = 0 then writeln('Summa cifr chetnaya')
else writeln('Summa cifr nechetnaya');

readln;
end.

Третья:

uses crt;
var n : integer;
begin
clrscr;
write('Enter n: ');
readln(n);
if n mod 2 = 0 then writeln('Chislo chetnoe')
else writeln('Chislo nechetnoye');
readln;
end.