Ребята срочно помогите! 15 баллов! Решить в паскале!
На вход подаются два числа – a и b. Вывести на экран сумму всех чисел между ними, которые кратны 5 и превышают 15. Если таких чисел нет, вывести “NO”.

var a,b,i,s:integer;beginwrite ('Введите числа: ');readln (a,b);if a<=b thenfor i:=a to b doif (i mod 5 = 0) and (i>15) then s:=s+i;if a>b thenfor i:=b to a doif (i mod 5 = 0) and (i>15) then s:=s+i;if s>0 then writeln ('Сумма всех чисел между ними, которые кратны 5 и превышают 15, равна: ',s)else writeln ('NO')end.