Блок схемы к программам.

var
  start, i, step : Integer;
BEGIN
  Write('Температура воздуха в 8 утра : ');
  ReadLn(start);
  Write('Шаг изменения температуры : ');
  ReadLn(step);
  WriteLn('Полученная таблица изменения температур :');
  for i:= 0 to 11 do {т.к. с 8 до 20 всего 12 часов}
    WriteLn(8+i:2, '-', 9+i:2, ' ч. : ', start-step*i:3, ' °C');
  for i:= 0 to 12 do {т.к. с 8 до 20 всего 12 часов}
    if start < 0 then
      begin
        WriteLn('В ', 8+i, ' часов была впервые отмечена отрицательная температура.');
      end
    else
       if start >= 0 then
    WriteLn('Отрицательной температуры отмечено небыло.');
  Write('Нажмите любую клавишу...');
  END.

var 
i,j: integer; 
x: DataItem; 
begin 
for i := 2 to count do 
begin 
for j := count downto i do 
if item[j-1]>item[j] then 
begin 
x := item[j-1]; 
item[j-1] := item[j]; 
item[j] := x; 
end; 
end; 
end.

var n, i, s0, s1, s5: integer;
    ar: array [1..100] of integer;
begin
     randomize;
     write ('vvedi razmer massiva: '); readln (n);
     writeln('vvedite elementi 0, 1, ili 5');
     for i:=1 to n do begin
               write ('Ar[',i,'] = ');
               readln (ar[i]); end;
     for i:=1 to n do write (ar[i]:3); writeln;
     for i:=1 to n do
         case ar[i] of
              0: s0:=s0+1;
              1: s1:=s1+1;
              5: s5:=s5+1; end;
     for i:=1 to s0 do ar[i]:=0;
     for i:=s0+1 to s0+s1 do ar[i]:=1;
     for i:=s0+s1+1 to n do ar[i]:=5;
     for i:=1 to n do write (ar[i]:3);
readln;
end.