Дан алгоритм для Робота:

алг

нач

нц 6 раз

вправо; закрасить

кц

кон

​

1.
Program tt;
var  A,B,C,D: Real;
begin      
Writeln ('Введите массу воды в граммах.'); Readln(A);      
Writeln ('Введите массу соли в граммах.'); Readln(B); 
D := B+A;
C := B/A;
Writeln ('Массовая доля соли в раствворе - ',C,'.');
End.    
2.
Program tt;
var  A,B,PL,Per: Real;
begin      
Writeln ('Введите длинну первого катета.'); Readln(A);      
Writeln ('Введите длинну второго катета.'); Readln(B); 
PL := (B*A)/2;
PER := sqrt(B*B+A*A)+A+B;
Writeln ('Площадь - ',PL,'.');
Writeln ('Периметр - ',PER,'.');
End.    

В задании не сказано, откуда берутся исходные данные, поэтому будем вводить их с клавиатуры. Сначала ведем общее количество данных (не факт, что данные за месяц снимались строго ежедневно), а затем сами данные. Это позволит заодно осуществить контроль ввода.

var
  n,s,t,i:integer;
begin
  Write('Укажите количество данных: ');
  Read(n);
  Writeln('Теперь вводите данные');
  s:=0;
  for i:=1 to n do
    begin
    Read(t);
    s:=s+t
    end;
  Writeln('Средняя температура за месяц составила ',s/n:0:1)
end.

Пример решения

Укажите количество данных: 11
Теперь вводите данные
27 29 26 31 24 23 27 30 31 28 25
Средняя температура за месяц составила 27.4