Товарищи!:) Помогите, пожалуйста, с информатикой! 

Что вычисляет приведённая ниже программа?

Program example;

Var x,y,z,I :integer;

Begin

  ReadLn(a,b,c);

  i:=0;

  If a>0 then i:=i+1;

  If b>0 then i:=i+1;

  If c>0 then i:=i+1;

  WriteLn(i)

End.

Помогите срочно,нужно разобрать слово "во времена" морфологический разбор.

По   шоссе навстречу друг другу едут 2 велосипедиста.Скорость 1 из них  10км/ч, а другого 14км/ч.Растояние между ними равно 18 км.Сколько км проедет каждый из них до  встречи?

решите задачу начерти схему и по ней реши задачу длина огорода прямоуголной формы 16.35 м а ширена в 3 раза меньше четвёртая часть площади занята цветами третья чать оставшийся плошади занята клубникой остальная площадь овощами.Чему равна площадь участка занятого овощами? Зфпеши ответ в квадратных метрах.