Номер 3 ???????????????
Program zadacha; varm,g,a,F:real; beging:=9.8;writeln('vvedite massu i uskorenie');readln(m,a);F:=m*g-m*a;writeln('F=', F, ' H');end.