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

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.