Склавиатуры вводятся два целых числа. вывести на экран yes, если большее из чисел делится на меньшее без остатка и no - в противном случае.напишите программу на паскаль

Program Z;

var a,b:integer;

BEGIN

     write('Задайте два целых числа: ');

     read(a,b);

     if a>b then if a mod b=0 then write('YES') else write('NO')

               else if b mod a=0 then write('YES') else write('NO');

END.

Объяснение: Программа написана на Паскаль ABC