Напишите программу по информатике чтобы решить задачу w9

w9=edanif345

1)e_w9

w-c09

Объяснение:

var

  a,b,max,min:integer;

begin

  Write('Введите два целых двухзначных числа: '); Readln(a,b);

  if a>b then begin max:=a; min:=b end

  else begin max:=b; min:=a end;

  if (10*(max mod 10)+(max div 10))>min then Writeln('YES')

  else Writeln('NO')

end.