Question

Задано двухзначное число а. Найдите сумму и произведение цифр числа (a1+a2 и a1 *a2). Var a, al, a2: begin write( введите а = '); read (); al:= a2:= write(' сумма цифр=", write(' произведение цифр, end.​

Answer 1

там где var, указываем тип переменных, ну к примеру integer

read(a)

a1:=a+a

a2:=a*a

ну и собственно там где сумма а1, а в следующей строке а2