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

[-neomax-]

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

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



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

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

[Vinsent90]

Задача №1

program neboskreb;
uses crt;
var m,l : integer;
    n : real;
begin clrscr;
  write(' nomer kvartiri - '); readln(m);
  n:=m/3;
  if m mod 3 <> 0 then n:=n+0.5;
  l:=round(n);
  if l mod 2 = 0 then l:= l-1;
  writeln('etaj  - ',l);
readkey; clrscr;
end.