Нужна помощь. По паскалю

Люди добрые помогите. До понедельника нужно решить задания. Горю!


1. Вычеркните записи, которые не могут служить идентификаторами

- AA_A_A
- A%
- A=B
- 567
- 'abBA'
- DIV
- [CRC]

2. Выберите фрагменты которые могут быть работающими:

A) BEGIN
BEGIN
WRITELN('PROGRAM ?')
END.

B) BEGIN
WRITELN('PROGRAM ?')

C) PROGRAM O_O
BEGIN
WRITELN('PROGRAM ?')
END.
VAR;

D) PROGRAM O_O
BEGIN
WRITELN('PROGRAM ?')
END.


3. Имеется файл, содержащий фамилии студентов группы. Составьте программу которая упорядочивает его так, чтобы фамилии располагались в алфавитном порядке.

4. Составьте программу, которая печатает числа a,b,c в порядке возрастания


5. Вычеркните типы данных, которые не являются целочисленными
- WORD
- Longint
- EXTENDED
- Shortint
- BYTE
- SINGLE

6. Найдите ошибку в программе, которая перемножает натуральные числа от 1 до 20 и выводит на экран результат расчета

VAR i,S:INTEGER
BEGIN
S:=0
FOR i=I TO 20 DO S:=S*i
WriteLn('Произведение чисел от 1 до 20 равно:',S);
END.

7. Заполните таблицу, подписав результаты выполнения операций.

Выражение - Результат

['A','B']+['A','D'] -
['A']*['A','B','C'] -
['A','B','C']-['A','B'] -
['A','B'']=['A','C'] -
['A','B'']<>['A','C'] -
['C','D'']>=['A'] -

8. Перечислите типы данных, определяемые пользователем, в приведенном ниже описании типов и переменных.

type
month = (jan, feb, march, apr, may);
com = array [month] of word;
spri = array [march:.may] of word;
date = record year: word; m : 1..12; day : 1.. 31 end;
digits = set of 0..9;
var
c: com;
n, m: integer;
a, b, d: real;
s : spri;
alfa : array [‘a’..’z’] of char;
switch : array [boolean] of byte;
u: char;

9. В пределах действия описания переменной setvar присвоено значение [red, green]

Type
colors=(red, green, blues);
paint=set of colors;
var
setvar: paint;
….
setvar:= [red, green];

Что получается в результате операций сравнения?

a) setvar = [red..blue] – [blue]
b) setvar = [];
c) setvar <=[red..succ(green)];
d) setvar >=[blue..green]
e) setvar * [red] = [red]
f) green in setvar;

Пожалуйста помогите!

[Naked]

1.
A%
A=B
567
'abBA'
[CRC] (вот в этом не уверен)
2.
BCD
4.

program sort_numbers;
begin
a=1;
b=3;
c=2;
if ((a<=b)and(a<=c)) begin
write (a);
if (b<=c) write (b, c); else write (c, b);
end;
if ((a>b)and(a>c)) begin
if (b>c) write (c, b, a);
if (c>b) write (b, c, a);
end;
if ((a<=b)and(a>c)) write (c, a, b);
if ((a<=c)and(a>b)) write (b, a, c);
end.

5.
word
extended
6.
Во первых везде точки с запятой расставить надо, и потом в начале - S=1;
А вот дальше сложнее...
По 3-ому вопросу - сортировка bubble_sort, можешь скачать на algolist.manual.ru

[gscorp]

1.

The_naked:
[CRC] (вот в этом не уверен)

Точно не может. на сколько помню обязательно должна начинаться с литеры

2.только B при условии что следующий символ ";"

5.

The_naked:
word
extended

WORD - целочисленный.
SINGLE и EXTENDED