ПОМОГИТЕ С ЗАДАНИЕМ!!! Дано четырехзначное число.Определить,верно ли ,что произведение первой и второй цифр равно произведению третьей и четвертой. Программа:free pascal

program z1; var a,a1,a2,a3,a4:integer; begin         write('a=');readln(a);         a4:=a mod 10;         a:=a div 10;         a3:=a mod 10;         a:=a div 10;         a2:=a mod 10;         a1:=a div 10;         if a1*a2=a3*a4 then begin                 writeln('Yes')         end         else begin                 writeln('No')         end;         readln end.