Типа так?
var a,b: integer;
begin
writeln('Введите число "a"');
readln(a);
writeln('Введите число "b"');
readln(b);
if a>b then writeln ('Число a>числа b')
else writeln('Число b>числа a');
if (a mod 10 = 0) then writeln ('Число "a" делится на 10')
else writeln('Число "a" не делится на 10');
if (b mod 10 = 0) then writeln ('Число "b" делится на 10')
else writeln('Число "b" не делится на 10');
end.