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

program zakonnietona3; uses crt; var F1,F2: real; begincls; writeln ('Третий закон Ньютона-тела действуют друг на друга с силами направленными '); writeln ('вдоль одной прямой,'); writeln (' равными по числовому значению и противоположны по направлению'); write ('Введите первую силу'); read (F1); F2: =-F1; write ('Вторая сила F2=',F2); end.