Сделайте, пожалуйста
1. Ввести с клавиатуры число. Если оно двузначное, на экране должно появиться сообщение «Это число двузначное», в остальных случаях появляется сообщение «Число не является двузначным».

2. Ввести с клавиатуры трехзначное число. Если число четное, вывести на экран сообщение «Это число четное», в остальных случаях сообщение «Число не является четным».

98 БАЛЛОВ!!!

#1.

var n,i,flag:integer;

begin  

readln (n);

flag:=0;

while n>0 do  

begin

 i:=n mod 10;

 n:=n div 10;

 flag:=flag+1;

end;

if (flag = 2)  

  then writeln ('Это число двузначное')

else  

 writeln ('Число не является двузначным');

end.

#2.

var n:integer;

begin  

readln (n);

if (n mod 2 = 0) then  

writeln ('Это число четное')

else

 writeln ('Число не является четным');

end.