работа в pascale

[golerka]

дано 4-х значное число проверить равенство произведений крайних и средних чисел. заранее спасибо

[DM_bite]

program Xd;
var n,a,b,c,d: integer;
  begin
  ReadLn(n);
  a:= n div 1000;
  b:= n div 100 mod 10;
  c:=  n div 10 mod 10;
  d:=n mod 10 mod 10;
 if a*d=c*b then WriteLn('True') else WriteLn('False');
  ReadLN;
  end.