Написать программу,которая на вход получает два целых числа и определяет делится ли одно на другое нацело. На выходе программа печатает False, если числа не делятся нацело и результат деления иначе.

Все в паскале

var a,b:integer;beginwrite('a='); readln(a);write('b='); readln(b);if a mod b = 0 then writeln(a,' / ',b,' = ',a div b) else writeln(a mod b = 0);end.Пример 1:a=20b=520 / 5 = 4Пример 2:a=20b=6False