Ввести с клавиатуры двузначное целое число и найти какая из его

program zz1;

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

begin

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

read(k);

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

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

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

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

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

end.