Составьте программу, определяющую, является ли число А делителем В

Program ostatok2;

Var A, B, O: integer;

Begin

Write ('Введите число А=') ;

Read (A) ;

Write ('Введите число B=') ;

Read (B) ;

If B mod A = 0 then

Write ('Число А является делителем числа В')

else

Write ('Число А не является делителем числа В') ;

end.