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

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

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.