написать программу на паскале. А.Проверить является ли число двухзначным ? Б.(введено

A) 
var a:integer;
begin   readln(a);//ввод числа   writeln((agt;9)and(alt;100));end.
Б) 
var a,b:integer;begin   readln(a,b);//вводим числа, разделяя пробелом   If agt;b then writeln(b,' ',a);   if alt;b then writeln(a,' ',b);   if a=b then writeln(a,' ',b);//если числа одинаковые, просто пречислить. Можно удалить, но при a=b ничего не выведетend.