12121-1+3>4*2>8+3>11*2>22+3>25
21122-1+3>4*4>16*16>256+3>259+3>262
11212-1*3>3*3>9-1>8*3>24-1>23
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.
5 байтов получится-----------------------------------------------------
Алгоритм + пример решения на Паскале.