Составьте программу произведения первой и третьей и суммы второй и четвертой цифры четырехзначного числа (Паскаль)

program z1;

var a, a1, a2, a3, a4: integer; / /a1, a2, a3 и a4 это цифры введенного числа соответственно

begin

writeln ('Введите четырехзначное число: ');

readln (a);

a1: = a div 1000; / /находим каждую из цифр числа

a2: = a div 100 mod 10;

a3: = a mod 100 div 10;

a4: = a mod 10;

writeln (a1, ' * ', a3, ' = ', a1 * a3); / /вычисляем и сразу выводим ответ на экран

writeln (a2, ' + ', a4, ' = ', a2 + a4);

end.