Помогите пожалуйста 1)...

Помогите пожалуйста 1) Дан Радиус найти длину окружности и площадь круга 2)даны 2 числа найти среднее арефметическое и среднеегеометрическое

 

1)
var a,b:real;
const pi=3.14;
begin
writeln ('Укажите радиус окружности '); readln (a);
writeln ('Длина окружности равна ',2*pi*a);
writeln ('Площадь круга равна ',pi*sqr(a));
readln;
end.
 
2)
var a,b:real;
begin
writeln ('Введите первое число'); readln (a);
writeln ('Введите второе число'); readln (b);
writeln ('Среднее арифметическое этих чисел равно ',(a+b)/2);
writeln ('Среднее геометрическое этих чисел равно ',exp(ln(a*b)*1/2));
end.