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

Var A:integer;
Begin
WriteLn('Введите четырёхзначное число');
ReadLn(A);
WriteLn('S = ',(A div 1000)+(A mod 10));
WriteLn('P = ',((A div 100) mod 10)*((A div 10) mod 10));
End.