Определить при каком значении V сила давления F будет больше 14 Кн - Pascal ABC

Формулировка задачи:

При движении автомобиля весом Р по выпуклому мосту радиуса R возникает сила давления F:=P+(P/q)*((V*V)/R). Считая, что Р=12 Кн, R=50 м., q = 9, 81 м/c2, определить при каком значении V сила давления F будет больше 14 Кн.

Решение задачи: «Определить при каком значении V сила давления F будет больше 14 Кн»

Листинг программы

const p=12;
      r=50;
      g=9.81;
var  v,f:real;
begin
v:=0;
f:=p;
while f<=14 do
 begin
  v:=v+1;
  f:=p+p/g*v*v/r;
 end;
write('v=',v:0:2,' f=',f:0:2);
end.

Объяснение кода листинга программы

const p=12; — задает значение константы p равное 12
const r=50; — задает значение константы r равное 50
var v,f:real; — объявляет переменные v и f типа real
begin — начало блока кода
v:=0; — инициализирует переменную v значением 0
f:=p; — инициализирует переменную f значением p
while f<=14 do — условие цикла while значение f меньше или равно 14
begin — начало внутреннего цикла
v:=v+1; — увеличивает значение переменной v на единицу
f:=p+p/gvv/r; — вычисляет значение f как сумму p и p/gvv/r
end; — конец внутреннего цикла
write('v=',v:0:2,' f=',f:0:2); — выводит значения v и f на экран
end. — конец блока кода