Пользователь вводит целое число. Определите ближайшее к нему число кратное 7 ( больше введенного ). Вывести ответ с соответствующими пояснениями.
Var a,b:integer; begin write('a = '); readln(a); b:=(a-a mod 7) div 7*7+7; writeln('b = ',b); end. Пример: a = 15 b = 21