запишите на языке Паскаль программу, которая для произвольного натурального двузначного числа определяет сумму и произведение его цифр

program Task; var number, digit1, digit2, sum, multiply: integer; begin writeln('Введите двузначное число:'); readln(number);

digit1 := number div 10; digit2 := number mod 10;

sum := digit1 + digit2; multiply := digit1 * digit2;

writeln('Сумма цифр: ', sum); writeln('Произведение цифр: ', multiply); end.