Составить программу в Паскале! Пожалуйста! СРОЧНО!

var c: integer; begin write ('Введите число '); readln (c); c: =abs (c); if c div 10 > c mod 10 then writeln ('Первая цифра больше второй') else if c div 10 < c mod 10 then writeln ('Вторая цифра больше первой') else writeln ('Цифры равны'); end.