Дано целое двузначное число, определить, равны ли его цифры или нет. на языке паскаль.

program HelloWorld;

var S: integer;

begin

    writeln('Введите число двухзначное:');

    readln(S);

    if(s mod 10 = s div 10) then writeln('Числа равны!')

    else writeln('УВЫ! Числа не равны!')

end.