Задачки на Delphi

[Fasgen777]

Здравствуйте! помогите решить задачки сами программы составлять не надо на них надо ответить только в теории и написать что к чему помогите пожалуйста.

1) Приведите 5 задач, которые можно решать с помощью банков данных. Почему эти задачи лучше решать с их помощью?

2) Даты вводятся в соответствии с шаблоном: две цифры, название месяца (янв, фев, мар, апр, май, июн, июл, авг, сен, окт, ноя, дек), две цифры года двадцатого века. Запишите выражение, истинное, если первая из двух введенных дат больше второй. Опишите процедуры и функции, которые будете использовать при решении задачи.

3) Укажите все ошибки в Паскаль - программе:
program PR6;
const tri=dwa+odin;
dwa=odin+odin;
odin=1;
var n:=real;
s,i:{integer};
begin read(n);
write('введите n');
if 1<n and n<=10
then begins s:=0;;
for dwa*n to tri do
begin s:=s+1
end;
else s:=s mod odin+dwa+tri
write('результат',s)
end
Все ли найденные вами ошибки обнаружит транслятор?

[Mad_Cat]

const tri=dwa+odin;// неизвестный  идентификатор tri
dwa=odin+odin; // неизвестный идентификатор dva
odin=1;
var n:=real; // n:real;
s,i:{integer}; // {коммент}
begin read(n);
write('введите n'); //местами поменять с  read(n);
if 1<n and n<=10 // условия  в скобки 
then begins s:=0;; // begins
for dwa*n to tri do // вообще бред
begin s:=s+1 //не хватает end;
end; // перед else ; не ставится
else s:=s mod odin+dwa+tri //нет точки c запятой
write('результат',s)
end//нет точки

[viron]

const
  tri = dwa + odin;   // Undeclared identifier: 'dwa'
  dwa = odin + odin;  // Const expression expected
  odin = 1;           // Identifier redeclared: 'odin'
var
  n:= Real;           // ',' or ':' expected but ':=' found
  s,i: {integer};     // Type expected but ';' found
begin
  read(n);
  write('введите n');
if 1<n and n<=10
 then begins s:=0;;     // Incompatible types. Missing operator or semicolon
 for dwa*n to tri do    // For loop control variable must be simple local variable
 begin s:=s+1           // Expression expected but 'BEGIN' found
 end;
 else s:=s mod odin+dwa+tri // ';' not allowed before 'ELSE'
 write('результат',s)       // Missing operator or semicolon
end                         // '.' expected but end of file found

[Fasgen777]

Спасибо кто помог! с 3 задачей разобрались... помогите с остальными кто может. Заранее благодарен!