Помогите с задачками на Turbo Pascal....

[veterok]

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

1.переменной k присвоить номер четверти плоскости, в которой находится точка с координатами x и у (х у не равняются 0)

2.Составить таблицу перевода расстояния из дюймов в сантиметры (1дюйм=2,54 см) для значений длин от 1 до 20 дюймов.

4.задан массив Х[n] Элементы массива расположить в обратном порядке.
5.Задан массив А[n,n] Требуется поэлементно вычесть последнюю строку из всех строк, кроме последней.
6.Сложное слово состоит из двух частей одинаковой длины и соединительной гласной. Найти обе части этого слова.

[DM_bite]

4.

program Xd;
const n=10;
var A:array [0..n] of integer;
    i,new: integer;
    begin
    randomize;
    for i:= 0 to n do
     begin
     a[i]:= i;
     end;
     for i:= n downto 0 do
     begin
     WriteLn(a[i]);
     end;
     ReadLn;
     end.

2. Вообще жесть.

program Xaxa;
const sm=2.54;
var i: integer;
begin
  for i:= 1 to 20 do
   begin
   WriteLn(sm*i);
   end;
   ReadLn;
   end.

[AVer]

1:

program N;
Var X,Y: integer;
begin
If X > 0 Then
 Begin
 If Y > 0 Then WriteLn('1') Else WriteLn('4');
 End Else
 Begin
 If Y > 0 Then WriteLn('2') Else WriteLn('3');
 End;
end.

6:

program N;
Var S:String;
begin
ReadLn(S);
WriteLn(Copy(S,1,Length(S) div 2));
Delete(S,1,(Length(S) div 2)+1);
WriteLn(S);
end.

5:

program N;
Const N = 10;
Var A:Array[1..N,1..N] of Integer;
     I,J:Integer;
begin
For I:=1 To N Do
For J:=1 To N Do
A[I,J]:=A[I,J]-A[N,J];
end.

[veterok]

Спасибо всем))))

[veterok]

А блок схемы можете сделать???? или слишком долго?! ну хотя бы на несколько задачек.....