Помогите решить задачи в паскале

[Bedaaaa]

1. Даны основания и высота равнобедренной трапеции. Найти ее периметр при любых значениях aи b.

2. Дано трехзначное число, в котором все цифры различны. Получить шесть чисел, образованных при перестановке цифр заданного числа.

3. Дан массив вещественных чисел. Выяснить верно ли, что количество положительных элементов не превышает 5.

[newerow1989]

Решение 3 задачи:

var p:array[0..10] of real;
    i,count:integer;
begin
   Randomize;
   For i:=0 to 10 do
   begin
      p[i]:=-5+10*Random;
      Write(p[i]:8:4);
   end;
   Writeln('');
   count:=0;
   For i:=0 to 10 do
      If p[i]>=0 then
         count:=count+1;
   If count<5 then
      Writeln('yes') else
      Writeln('no');
   Readln;
end.

Решение 2 задачи:

var abc,a,b,c:integer;
begin
   abc:=471;
   a:=abc div 100;
   b:=abc div 10 mod 10;
   c:=abc mod 10;
   Writeln(a,b,c);
   Writeln(a,c,b);
   Writeln(b,a,c);
   Writeln(b,c,a);
   Writeln(c,a,b);
   Writeln(c,b,a);
   Readln;
end.

[newerow1989]

Решение 1 задачи:

[newerow1989]

var a,b,c,h,p:real;
begin
   a:=10;
   b:=12;
   h:=5;
   c:=Sqrt(h*h+(b-a)*(b-a)/4);
   p:=a+b+2*c;
   Writeln(p);
   Readln;
end.