Язык паскаля! составьте программу, которая находит в четырёхзначном числе сумму первых двух цифр этого числа и произведение двух последних цифр этого числа. 98 ! язык паскаля

var

 num: integer;

begin

 read(num);

 writeln('Сумма первых двух цифр = ', num div 1000 + (num div 100 mod 10));

 write('Произведение двух последних цифр = ', (num mod 100 div 10) * (num mod 10));

end.