Складть  програму  обчислення  рвнодйно  сил  F,  що  дють  на  тло  масою

Увеличением массы со скоростью пренебрёг (как и ещё много чем), извините за наглость

var
  m, a, F: real;
begin
  writeln('Введть дан про тл:');
  write('-Маса: '); readln(m);
  write('-Прискорення: '); readln(a);
  F := m * a;
  writeln('--------------');
  writeln('Pвнодйно  сил: ', F, ' H');
end.