Ввести с клавиатуры двузначное целое число и определить какая из его цифр больше. (Ответ "Первая цифра","Вторая цифра" или "Равны").

program zz1;

var k, s, n:integer; / / задаем переменные целого типа

begin

write (' введите заданное двузначное целое число ');

read (k);

s:=k div 10; / / получаем первую цифру двузначного целого числа

n:=k mod 10; / / получаем вторую цифру двузначного целого числа

if s > n then write (' Первая цифра '); / / проверяем условие и выводим ответ, если условие верное

if s < n then write (' Вторая цифра '); / / проверяем условие и выводим ответ, если условие верное

if s = n then write (' Равны '); / / проверяем условие и выводим ответ, если условие верное

end.