Помогите написать текст программы для Pascal

[Alink@]

Вот задачи.ПОМОГИТЕ ПОЖАЛУЙСТА((ОСЕНЬ НАДА
1)Даны действительные числа x, y (x не равно y). Меньшее из этих двух чисел заменить их полусуммой, а большее - их удвоенным произведением.
2)Определить, верно ли, что при делении неотрицательного целого числа a на положительное целое число b получается остаток, равный одному из двух заданных чисел r или s.
3)Поле шахматной доски определяется парой натуральных чисел, каждое из которых не превосходит восьми: первое число — номер вертикали (при счете слева направо), второе — номер горизонтали (при счете снизу вверх). Даны натуральные числа k, l, m, n, каждое из которых не превосходит восьми. Требуется выяснить, можно ли с поля (k, l) одним ходом ферзя попасть на поле (m, n). Если нет, то выяснить, как это можно сделать за два хода (указать поле, на которое приводит первый ход).
4)Дано натуральное число n (n ≤ 9999).Верно ли, что все четыре цифры числа различны?
5)Дано действительное число h. Выяснить, имеет ли уравнение ax2 + bx + c = 0 действительные корни, если

[Alink@]

6)Дано натуральное число n. Вычислить
рисунок 1
7)Даны натуральное n, действительное х. Вычислить sin х + sin sin x + ... + sin sin ...sin x;
8)Вычислить
рисунок 2 под г

[kakawkin]

1.

program tt;
var i:integer;a,b,c,x,y:real;
begin
 writeln('!!! а <> b !!!');
 write('Enter a: ');readln(a);
 write('Enter b: ');readln(b);
 if a > b then begin c:=a;a:=b;b:=c; end;
 y:=a/b;
 x:=(a*b)*(a*b);
 write(y,' ',x)
end.

[russian-stalker]

1:

program Project2;
var
x,y:real;
begin
 write('x: ');readln(x);
 write('y: ');readln(y);
 if x<>y then
 begin
 if y<x then
 begin
 y:=(y+x)/2;
 x:=(x*y)*2;
 end else
 begin
 x:=(y+x)/2;
 y:=(x*y)*2;
 end;
 write(x,' ',y);
 end;
 readln(x);
end.

[Aexx]

Эх, жаль я паскаль уже не помню. Так, помог бы землячке))