проверочное слово грипп

решить уравнение(х-158)х40=200

нужна помощь!!!!

1)рациональное природопользование

2)определение по картам особенностей рельефа московской области!!

помогите!!!!!!!

Перепишите программу на Паскале, исправив ошибки:

Program massiv;

Var a:array(-10..10) of integer;

Begin

 For i:=1 to 20 Do

   Read(a[i]);

 For i:=1 to 20 Do

  a[i]:=a[i]/10;

For i:=1 to 20 Do

  Write(a[i])

End.