Пожалуйста посчитайте с программированием

program z1;
var f,k,e,r,q1,q2:real;
begin
writeln('введите q1, q2 (неподвижные точечные заряды) и расстояние между ними (r):');
readln(q1,q2,r);
k:=9*sqr(sqr(sqr(10)))*10;
e:= ;
f:=k*abs(q1)*abs(q2)/e/sqr(r);
writeln(f);
end.