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

Решение задачи для целых чисел: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.