Question

Срочно, помогите, проошууу, номер 4.23 под (а)

Answer 1

var a,a1,a2: integer;
begin
write ('Введите двузначное число: '); read (a);
a1:=a div 10;
a2:=a mod 10;
if (a1>a2) then writeln ('Первая цифра ',a1, ' больше второй цифры ',a2);
if (a2>a1) then writeln ('Вторая цифра ',a2, ' больше первой цифры ',a1);
if (a1=a2) then writeln ('Цифры одинаковые.');
end.