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

4.var r , S : real;beginwriteln('Введите радиус: ');readln(r);S:= pi*r*r;writeln('Площадь круга: ',S);end.10.var massa, a, b, c : real;beginwriteln('Введите массы трёх слонов: ');readln(a,b,c);massa:=(a+b+c)/3;writeln('Средняя масса слона: ', massa);end.