1)
program prog;var a, a2, a3, a5, a10: integer;beginwrite('Введите число ');readln(a);a2 := a * a;a3 := a2 * a;a5 := a3 * a2;a10 := a5 * a5;writeln('Число в третьей степени: ' + a3);writeln('Число в десятой степени: ' + a10);end.
2)
program prog;var r: real;beginwrite('Введите радиус: ');readln(r);writeln('Длина окружности: ' + 2 * 3.14 * r);writeln('Площадь круга: ' + 3.14 * r * r);end.