Impersona1 Program fiz;
var f,q1,q2,k,e,r:real;
begin
k:=9000000000; 
writeln('Введите |q1|');
 readln(q1); 
writeln('Введите  |q2|'); 
readln(q2); 
writeln('Введите  e'); 
readln(e); 
writeln('Введите  r'); 
readln(r);
 f:=(k*abs(q1)*abs(q2))/(e*r*r);
 writeln('F=',f,'(H)')
end.