Нарисовать блок-схему для var x,y,r,h: real;
begin
    write('координаты точки: ');
    readln(x,y);
    write('радиус круга: ');
    readln(r);
    h := sqrt(x*x + y*y);
    if h > r then writeln('Точка не принадлежит кругу')
    else writeln('Точка принадлежит кругу');
end.​

Uses crt;
var dd,mm,gg:integer;
begin
readln(dd,mm,gg);
case dd of
1..5: writeln('начало');
6..14: writeln('первая половина');
15: writeln('середина');
16..25: writeln('вторая половина');
26..31: writeln('конец');
end;
case mm of
1: writeln('января');
2: writeln('февраля');
3: writeln('марта');
4: writeln('апреля');
5: writeln('мая');
6: writeln('июня');
7: writeln('июля');
8: writeln('августа');
9: writeln('сентября');
10: writeln('октября');
11: writeln('ноября');
12: writeln('декабря');
end;
if gg mod 4=0 then writeln ('високосный') else writeln('не високосный');
end.

---

var a:integer;
begin
readln(a);
writeln(a mod 10,a);
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