Составить алгоритм определения.По разработанному алгоритму написать Паскаль программу.

[Feell]

Пожалуйста, помогите составить алгоритм определения:
А) дней недели, температура которых была выше средней за неделю и в эти дни не было осадков;
Б) солнечных дней недели, в которых температура и давление отличались от средней за неделю не более чем на 30% и 3%, соответственно;
В) дней недели, температура в которые была ниже или равна средней и в эти дни были осадки;
Г) дождливых дней недели, температура и давление в которые отличались одновременно от средней более чем на 20% и 2%, соответственно.

По разработанному алгоритму написать Паскаль-программу.

[Stilet]

Type
 TWether=recоrd
   day:byte;
   Celsius:Double;
   Sun:Boolean;
   Rain:Boolean;
 end;
var w:Array[1..1] of TWether; i:integer; avg:Double;
begin
 avg:=0;
 for i:=1 to 1 do begin
  With w[i] do begin
   Write('Номер дня:');readln(day);
   Write('Температура:');readln(Celsius); avg:=avg+Celsius;
   Write('Солнце:');readln(Sun);
   Write('Дождь:');readln(Rain);
  end;
 end;
 avg:=avg/1;

 {дней недели, температура которых была выше средней за неделю
 и в эти дни не было осадков;}
 for i:=1 to 1 do begin
  With w[i] do begin if Rain or (Celsius<=avg) then Continue;
   Write('Номер дня:',day);
   Write('Температура:',Celsius);
   Write('Солнце:',Sun);
   Write('Дождь:',Rain);
  end;
 end;
...
end.

Идея ясна?

[Feell]

Извиняюсь за слабоумие, мало что понятно. Не могли бы вы полностью и подробно расписать код данной программы?