Рассчитать скорость автомобиля по его тормозному пути для разного покрытия при различных скоростях. свести результаты вычисления в таблицу формула вычисления тормозного пути: s=kэ*v*v/(254*фс) s=18 м-тормозной путь автомобиля в метрах кэ-1 тормозной коэффициент v=100 км/ч скорость авто в начале торможения фс= коэффициент сцепления с дорогой (разные показатели в зависимости от погодных условий) =0.7-сухой асфальт =0.4-мокрая дорога =0.2-укатанный снег =0.1-обледенелая дорога

Var s,v,Ke,fc:real;
Begin 
s:=18;
ke:=1;
v:=100;
Writeln('Тормозной путь автомобиля: ',s,' м');
Writeln('Тормозной коэффичиент: ',ke);
Writeln('Скорость авто в начале торможения ',v,' км/ч');
Writeln('Коэффициент сцепления с дорогой');
Writeln;Writeln('Введите показатель погодных условий: ');
Writeln('Варианты:');
Writeln('0.7-сухой асфальт');
Writeln('0.4-мокрая дорога');
Writeln('0.2-укатанный снег');
Writeln('0.1-обледенелая дорога');
Readln(fc);
S:=ke*v*v/(254*fc);
Writeln('скорость автомобиля по его тормозному пути: ',s);
end.