Program primer2; var v0,t,x,v1,real; begin; writeln('введите начальную скорость'); readln(v0); writeln('введите время торможения'); readln(t); writeln('конечная скорость равна 0'); readln(v1); x: =v1+v0/2*t('тормозной путь автомобиля в данном случае равен',x,'в километрах'); end.
если да - то вот, иначе кинь страйк и на удаление
Program primer2;
var
v0,t,X,v1:real;
begin;
writeln('Введите начальную скорость');
readln(v0);
writeln('Введите время торможения');
readln(t);
writeln('Конечная скорость равна 0');
readln(v1);
X:= v1 + v0 / 2 * t;
Writeln('Тормозной путь автомобиля в данном случае равен',X,'в километрах');
end.