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

Решение задачи для целых чисел:

program chisla;
 var a,b: integer;
begin
  write('a='); readln(a);
  write('b='); readln(b);
  if (a mod b =0) or (b mod a=0) 
   theh write('делятся')
    else write('не делятся')
end.