ребят, хелп. помогите написать 2 задачки на языке Паскаль. Номер 4

4.
var r , S : real;
begin
writeln('Введите радиус: ');
readln(r);
S:= pi*r*r;
writeln('Площадь круга: ',S);
end.

10.
var massa, a, b, c : real;
begin
writeln('Введите массы трёх слонов: ');
readln(a,b,c);
massa:=(a+b+c)/3;
writeln('Средняя масса слона: ', massa);
end.