1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
program Lab34c; var a, suma, dob, cila, ost: integer; begin write('Vvedit dvoznachne chislo: '); read(a); cila := a div 10; ost := a mod 10; suma := cila + ost; dob := cila * ost; writeln('suma = ', suma); writeln('dobutok = ', dob); end.