17F............................
Var
m,g,a:real;
Begin
Write('Введите массу и ускорение (Через пробел) ');
Readln(m,a);
g:=9.8;
Write('Сила сопротивления воздуха равна ',m*g-m*a);
End.
Shift+Alt как современные дети не могут это знать
21211
25•3=75 75-5=70 70•3=210 210-5-5=200