Всё надо сделать ** паскале.a) x^5 b)x^6 c)x^8 d)x^9 e)x^102 задание: Дан диаметр...

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.