Вопрос для информатиков. Помогите пожалуйста с задачей У меня ничего не работает

Вот программа:
const eps = 8.85e-12;
var d1, d2, d3, S1, S2, S3, C1, C2, C3, Csr : real;
function C (var S, d : real):real;
begin C:= eps*S/d; end;
begin
Write (' 1 конденсатор. Ведите площадь пластины в кв.см '); ReadLn (S1);
Write (' Ведите площадь расстояние между пластинами в мм '); ReadLn (d1);
S1 := S1*0.0001; d1 := d1*0.001; C1 := C(d1,S1)/eps;
Write (' 2 конденсатор. Ведите площадь пластины в кв.см '); ReadLn (S2);
Write (' Ведите площадь расстояние между пластинами в мм '); ReadLn (d2);
S2 := S2*0.0001; d2 := d2*0.001; C2 := C(d2,S2)/eps;
Write (' 3 конденсатор. Ведите площадь пластины в кв.см '); ReadLn (S3);
Write (' Ведите площадь расстояние между пластинами в мм '); ReadLn (d3);
S3 := S3*0.0001; d3 := d3*0.001; C3 := C(d3,S3)/eps;
WriteLn (' C1= ', C1:4:2, ' C2 =',C2:4:2, ' C3 = ', C3:4:2);
Csr := (C1 + C2 + C3)/3;
WriteLn ( ' Средняя емкость (пикофарад) = ',Csr:4:3);
end.

И результат ее работы:

program z_1;
var
d1, d2, d3, s1, s2, s3, C, C0: real;

function cc(d, s: real; var C: real): real;
begin
C := (8.85 * exp(ln(10) * (-12)) * s) / d;
end;

begin
write('расстояние между пластинами d1 = '); readln(d1);
write('Площадь s1 = '); readln(s1);
write('расстояние между пластинами d2 = '); readln(d2);
write('Площадь s2 = '); readln(s2);
write('расстояние между пластинами d3 = '); readln(d3);
write('Площадь s3 = '); readln(s3);
C0 := (cc(d1, s1, C) + cc(d2, s2, C) + cc(d3, s3, C)) / 3;
writeln('средняя плоскость равна ', C0);
end.

 ChatGpt GENERATED