Паскаль. Помогите, пожалуйста, решить

Question

Помогите, пожалуйста, решить задачки: 
1)вычислить значение F=ma-mv^2/R при значениях m, изменяющихся от -15 до 30 с шагом 5. Значения ускорения a и скорости движения v ввести с клавиатуры. Значение R принять равным 15 м. 
 
2) Дано натуральное число n. Вычислить P=(1-1/2)(1-1/4)(1-1/6)...(1-1/2a)

Masud Barati · Accepted Answer

на почту пиши сделаю

Настя · Answer

program zadanie1; 
var m,a: integer; 
f, v: real; 
const r=15, d=5; 
begin 
write('v='); 
read(v); 
a:=-15; 
writeln('-----------------'); 
writeln(' a ',' f '); 
writeln('-----------------'); 
while m<=30 do 
begin 
f:=m*a-m*sqr(v)/r; 
writeln(' ',a,' ',f,' '); 
writeln('-----------------'); 
a:=a+d; 
end; 
end.

за 50 рублей напишу и протестирую оба задания