Составить программу нахождения длины окружности по указанному радиусу R. Используя указатели. (язык с++)

Дано трехзначное число. Найти произведение цифр числа. (язык Паскаль)

Меньшее из трех чисел увеличить в 3 раза. (язык с++)

Сделаю только второе задание (Pascal), ибо с + + не изучал.

Program z2;

var

sum, n:integer;

begin

writeln ('Введите целое трёхзначное число (например 100) ');

readln (n);

sum: = (n div 100) + (n div 10 mod 10) + (n mod 10);

writeln ('Сумма цифр числа: ', sum);

end.