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

|использовать робот алг нач цел а, б, с вывод "введите двузначное число", нс ввод а б : = div (а,10) с : = mod (а,10) вывод "сумма цифр числа ",а, " равна ", б+с, нс конне забудь поставить 5 звезд)

1)

высказывание   не (не  а  и  b)  будет ложным когда высказывание

(не  а  и  b)   будет истинным, оно в свою очередь будет истинным когда

будут истинны одновременно высказывание  не  а  и   высказывание  b

то есть когда а ложное а в истинное

2)

число 376 трехзначное и четное

а=число 376 трехзначное

в=число 376 четное

а и в

или

если сумма цифр числа делится на 3, то число делится  на  3

а=сумма цифр числа делится на 3

в=число делится  на  3

если а то в

Var   n,i,a: integer;   p: longint; begin   write('введите четырехзначное число: '); read(n);   write('введите число для проверки кратности: '); read(a);   p: =1;   for i: =1 to 3 do   begin       p: =p*(n mod 10);       n: =n div 10   end;   p: =p*n;   if (p mod a)=0 then writeln('число кратно ',a)   else writeln('число не кратно ',a) end. тестовое решение: введите четырехзначное число: 3673 введите число для проверки кратности: 7 число кратно 7