написать программу, которая вычисляет сумму двузначных чисел, у которых 1 число больше 2

var a,a1,a2,s: integer;beginreadln(a);a1:=a div 10;a2:=a mod 10;if a1>a2 then begins:=a1+a2;writeln(s);endend.