С! дано четырехзначное число.определить,верно ли ,что произведение первой и второй цифр равно произведению третьей и четвертой. программа: 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.