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

Question

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

Программа:free pascal

Answer 1

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.