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

Программа: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;        readlnend.