Нужно составить программу (Pascal) определяющую является ли число А кратным числу В.

program zz1;

var a, b:integer; / / задаем переменные целого типа

begin

write (' введите первое число '); / / вводим с клавиатуры первое число

read (a);

write (' введите второе число '); / / вводим с клавиатуры второе число

read (b);

if (a mod b = 0) / / проверяем на кратность, если первое число при делении на второе дает в остатке ноль, то

then write (' число ', a, ' является кратным числу ', b) / / выводим один ответ

else write (' число ', a, ' не является кратным числу ', b); / / выводим другой ответ

end.