Что не так в программе?

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