Задано трехзначное число составьте программу которая определяет равны ли в нем…

Паскаль program m1; uses crt; var a,b,c,d: integer; beginwrite ('Введите число: '); readln (a); {Задаем число}b: =a mod 10; {В переменную b заносится значение последней цифры в числе}a: =a div 10; {Сокращаем переменную до 2 чисел}c: =a mod 10; {В переменную c заносится значение последней (второй) цифры в числе}a: =a div 10; {Сокращаем переменную до 2 чисел}d: =a mod 10; {В переменную d заносится значение первой цифры в числе}if (d*b=d+c) then writeln ('Произведение 1 и 3 цифры и сумма 2 и 1 цифр равны! ') else writeln ('Произведение 2 и 3 цифры и сумма 1 и 1 цифры не равны! '); end.