Question

Дано двузначное натуральное число. Если число десятков в нём больше числа
единиц, то вывести слово «ДА», в противном случае – «НЕТ».
Написать программу на языке Паскаль. использовать div и mod
СРООЧНО! ДАЮ УЖЕ 25 БАЛЛОВ,В НАДЕЖДЕ НА ПРАВИЛЬНУЮ ПОМОЩЬ! ОЧЕНЬ ВАЖНО

Answer 1

program raize;

var

x,d,e :integer;

 begin

readln(x);

e := x mod 10;

x := x div 10;

d := x mod 10;

if d >e then

 write('Да!')

else

 write('Нет!')

 end.