Question

Дано натуральное двузначное число .Если цифры одинаковы ,то увеличить заданное число в 2 раза ,если разные то большую заменить на 0. помогите решить задачу на паскале ((срочно

Answer 1

var a,b,c:integer;

begin
writeln ('Введите любое двузначное число '); readln(a);
b:=a mod 10;
c:=a div 10;
if b=c then writeln ('Число после выполнения операции ', a*2);
if b>c then writeln ('Число после выполнения операции ',(c),'0');
if b<c then writeln ('Число после выполнения операции 0',(b));
end.