Помогите написать программы в Pascal Опции

[-neomax-]

С помощью операторов ветвления и циклов(только без функции)
1)В небоскрёбе N этажей и всего один подъезд; на каждом этаже по 3 квартиры; лифт может останавливаться только на нечетных этажах. Человек садится в лифт и набирает номер нужной ему квартиры М. На какой этаж должен доставить лифт пассажира?

2)Нарисовать на экране катящееся по наклонной вида Y=k*X колесо с четырьмя спицами



Массивы и строки:
3)Показать, что, если элементы какого-либо ряда определителя умножить на число, то опре-делитель также умножится на это же число.

4)Строка Т состоит из слов, разделенных запятыми, подсчитать среднюю длину слов.

[Vinsent90]

Задача №4

program dlina_slova;
uses crt;
var l,a,b,i,z,k: integer;
    t: string;
begin
  writeln('vvedite stroku'); readln(t);
  for i:=1 to length(t) do if t[i]=',' then inc(z);

  l:= (length(t)-z) div (z+1);
          writeln('sredn99 dlina slova = ',l);
Readkey;clrscr;
end.