Надо ввести два числа и программа должна показать делиться ли ** друг друга или нет

Question

Надо ввести два числа и программа должна показать делиться ли на друг друга или нет

Answer 1

Pascal
Program determiner;
Var a, b, c: real;
Begin
Readln(a, b);
C:=0;
If (a > b) then
Begin
If (a mod b = c) then
Writeln('Yes')
Else writeln('No')
End
Else begin
If (b mod a = c) then
Writeln('Yes')
Else writeln('No);
End;
End.