Помогите построить блок-схемы (паскаль)

[Bedaaaa]

1.

Program zadacha1;
var a,a28:real; 
begin
readln(a);
a28:=sqr(sqr(a*sqr(sqr(a)*a)));;
writeln('a^28=',a28); readln
end.

2.

program zadacha2;
var
 a1,a2,a3:integer;
 b1,b2:integer;
 c1,c2,c3,c4,c:integer;
begin
  a1:=9;a2:=9;a3:=9;
  b1:=9;b2:=9;

  c:=a1+b1;
  c1:=c mod 10;
  c:=c div 10;

  c:=a2+b2+c;
  c2:=c mod 10;
  c:=c div 10;

  c:=a3+c;
  c3:=c mod 10;
  c:=c div 10;

  c4:=c;

  writeln(c4,c3,c2,c1);
  readln;
end.

3.

Program zadacha4;
var S:real;
    t:integer;
begin
   S:=10;
   t:=1;
   Repeat
      t:=t+1;
      S:=S+S*0.1;
   Until S>20;
   Write('t=',t,'; S=',S);
   Readln;
end.[/B]

4.[B]Program zadacha5;
var p:array[1..15] of integer;
    i,min,max,count:integer;
    sred:real;
begin
   Randomize;
   For i:=1 to 15 do
   begin
      p[i]:=Random(1000);
      Writeln(p[i]);
   end;
   min:=p[1];
   max:=p[1];
   For i:=2 to 15 do
   begin
      If min>p[i] then
         min:=p[i];
      If max<p[i] then
         max:=p[i];
   end;
   sred:=(min+max)/2;
   Writeln('min=',min,'; max=',max,'; sred=',sred);
   count:=0;
   For i:=1 to 15 do
      If p[i]>sred then
      begin
         Write(i,', ');
         count:=count+1;
      end;
   Writeln('Itogo: ',count);
   Readln;
end.

5.

Program zadacha6;
var d:array[1..4,1..4] of integer;
    i,j,min,max:integer;
begin
   Randomize;
   For j:=1 to 4 do
      For i:=1 to 4 do
      begin
         d[i,j]:=Random(1000);
         If i=4 then
            Writeln(d[i,j]) else
            Write(d[i,j],'  ');
      end;
   max:=0;
   For j:=1 to 4 do
      For i:=j+1 to 4 do
         If max<d[i,j] then
            max:=d[i,j];
   Writeln('max=',max);
   min:=d[4,1];
   For i:=1 to 4 do
      If min>d[4-i+1,i] then
         min:=d[4-i+1,i];
   Writeln('min=',min);
   For i:=1 to 4 do
      For j:=1 to 4 do
         If min=d[i,j] then
            Writeln('(',i,'; ',j,')');
   Readln;
end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[sanji2010]

Могу сделать все 4, но не бесплатно, если что - пиши в скайп!

[min@y™]

Могу сделать все 4 бесплатно, если убедишь меня, что мне это надо.

[sanji2010]

Сообщение от min@y™

Могу сделать все 4 бесплатно, если убедишь меня, что мне это надо.

:DD
Это возможно? Убедить незнакомого человека, делать за тебя работу??? :DDD

[min@y™]

Это возможно? Убедить незнакомого человека, делать за тебя работу???

Можно вместо оплаты предложить что-то ещё, немонетарное, услугу, например, какую-нибудь, удалённую.

Интим не предлагать!