Пользователь вводит целое число. Определите ближайшее к нему число кратное 7 ( больше введенного ). Вывести ответ с соответствующими пояснениями.

var a,b:integer;beginwrite('a = ');readln(a);b:=(a-a mod 7) div 7*7+7;writeln('b = ',b);end.Пример:a = 15b = 21