Это пока, то что сразу в глаза бросилось.
Не столько ошибка сколько непонятка. Зачем нужны begin end ?
Цитата:
begin
F:=G*(m1*m2)/sqr(R);
end;
|
В упор не нашел куда вы программу отсылаете:
Цитата:
|
f (a>b) and (b>c) and (c>d) then goto 1
|
А в 4-задаче я из принципа придрался бы, к типу вашего массива. Это частный случай, что у вас без дробной части получается цена за 1 грамм.