Что не так в программе? var a,b,a,b: integer; begin read(a,b); if (a mod 6=0) and (b mod 6=0) then (a: = a div 6) and (b: = b div 6) write(a,'/',b); end.

Паскаль или дельфи не чувствительны к регистру букв, поэтому Вы задали 2 раза одни и те же переменные, т.е. а=А, b=B. Замените одну пару другими переменными, например c,d