дано пятизначное число. найти сумму первой и четвертой цифры и произведение второй и пятой цифры

Program x2;

var n:integer;

begin

Write ('Введите n, n = ') ;

Readln (n) ;

Writeln ('Сумма 1-ой и 4-ой цифр = ', n div 10000 + (n mod 100) div 10,', произведение 2-ой и 5-ой = ', ((n mod 10000) div 1000) * (n mod 10)) ; / / это продолжение строчки сверху

end.