Question

Всё надо сделать на паскале.
a) x^5   b)x^6   c)x^8      d)x^9      e)x^10
2 задание:
 Дан диаметр окружности d. Найти его длину (L=П*d)
3 задание:
Найти длину окружности L и площадь круга S заданного радиуса R: L=2πR,  S = πR^2
4 задание:
Даны 2 числа a и b. Найти их среднее арифметическое
5 задание:
Даны 2 неотрицательных числа a и b. Найти их среднее геометрическое (квадратный корень  из их произведения)
6 задание:
Найти расстояние между двумя точками с заданными координатами  x1 и x2 на числовой оси:  |x2 - x1|.
Буду очень благодарен.

Answer 1

№2
var
d, l: real;
begin
readln(d);
l:=pi*d;
writeln(l);
end. 
#3
var
r, l, s: real;
begin
readln(r);
l:=pi*2*r;
s:=pi*sqr(r);
writeln(r, s);
end. 
#4
var
a, b: integer;
s: real;
begin
readln(a, b);
s:=(a+b)/2;
writeln(s);
end.