Ввести с клавиатуры двухзначное число является ли оно симитричным, Pascal abc срочно надо!!!

var n,a,b:integer;     begin    read(n);    a:= n div 10;    b:=n mod 10;    if a=b then    write('Число симметричное') else      write('Число несимметричное');    end.