PascalABC.NET.Помогите пожалуйста.Даны 2 числа a и b.Найти меньшее и определить делится ли оно нацело на 5.

var a,b:integer; begin write('Введите число А '); readln (a); write('Введите число Б '); readln (b); if (a = b) then writeln ('Числа равны') else if (a < b) then begin if ( a mod 5 = 0) then writeln ('Число А меньше и делится на 5') else writeln('Число А меньше и не делится на 5'); end else begin if ( b mod 5 = 0) then writeln ('Число Б меньше и делится на 5') else writeln ('Число Б меньше и не делится на 5'); end; end.