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.