Информатика [x]

Помогите с задачей! Дома паскаля нет, и решить не могу.
Дан код:

var
i,m,c:integer;
begin
for i:=1 to 15 do
m:=m+i;
for i:=0 to 2 do
begin
if i=0 then c:=m div 100;
if i=1 then c:=(m div 10)mod 10;
if i=2 then c:=m mod 10;
if c=-1 then write('б');
if c=0 then write('и');
if c=1 then write('x');
if c=2 then write('y');
if c=3 then write('z');
if c>3 then write('error');
end;
readln;
end.

Необходимо узнать, что сделает программа после запуска и конечный результат. Заранее спасибо. (тему создал в болталке, т.к. здесь больше народа и больше шансов получить помощь)

Кто Ассes хорошо знает?

АДМИНИСТРАТОР ГОСТИНИЦЫ
Описание
В гостинице размещаются номера класса люкс, первого класса, второго класса.
Номера люкс - 570 руб./сутки; первого класса (одноместный) – 220; первого класса (двухместный) – 190; второго класса (одноместный) – 110; второго класса (двухместный) – 70.
Номеров одного класса может быть несколько, такие номера различаются порядковым номером.
Посетители гостиницы при регистрации оставляют следующие данные – паспортные данные, фамилию, имя, отчество.
Приезжий совместно с администратором оформляют дату приезда, дату отъезда, класс номера, стоимость проживания, порядковый номер комнаты.
Таблицы
Разработать инфологическую модель данных. На ее основе создать таблицы и привести их к третьей нормальной форме. Если необходимо доработать инфологическую модель данных. Заполнить таблицы данными, отражающими различные комбинации атрибутов данных таблиц.
Запросы
Создать следующие запросы
- полные сведения о местах в гостинице;
- полные сведения о свободных местах в гостинице;
- количество посетителей гостиницы в заданный день;
- количество свободных мест каждого класса n-местных номеров;
- обновление класса номеров и количества мест в них.
Формы
Создать формы
- ввода номеров гостиницы;
- изменения класса и количества мест номеров;
- регистрации гостей;
- оформление задержки или досрочного отъезда из гостиницы с перерасчетом стоимости проживания;
- поиск гостя по произвольному признаку.

А у мну *Информатика* делится:
Теория
Программное обеспечение (ПО)
Вычислительные Сети
Модернизация

Это не программирование. Это набор кода

Знаешь
Не знаю.

когда в програмировании ничего не соображаешь
нужно не спать на уроках. ;-)

Знаешь, когда в програмировании ничего не соображаешь, и эта "фигня" - целая сложная задача

2 Lewis Маэстро
Неужели подобную фигню самому сделать нельзя ?
rapidshare.de/files/48518587/MAS1.PAS.html

Дан целочисленный массив A размера N. Переписать в новый целочисленный массив B того же размера вначале все элементы исходного массива с четными номерами, а затем — с нечетными:

A2, A4, A6, …, A1, A3, A5, … .
Условный оператор не использовать


На С++ и На ТР если возможно

Error 116: Must be in 8087 mode to compile this

Что это может быть, не знаешь?
Вначале нужен ключ {$N+}, чтоб компилилось. Это из-за типа double.

Я разобрался в чем фишка - мой TP7 не хороший был.
Все теперь работает - новый скачал. Еще раз спасибо!