Выполнить задание в табличном процессоре. Имеются сведения о студентах (5 человек) группы (фамилия, имя, отчество, номер зачетной книжки, средний бал студента) и результатах экзаменационной сессии по четырем предметам: математике, физике, истории и информатике. Необходимо определить: - средний группы; - максимальный средний в группе; - минимальный средний в группе; - количество студентов, имеющих средний больше или равно 4. Постройте диаграмму, показывающую средний студентов. сделать в ребята :)

Створюємо кнопку
Для кнопки (Button1) процедура onClick
Створюємо поле вводу
Створюємо текстове поле

procedure TForm1.Button1Click(Sender: TObject);var x: real;begin x:= StrToFloat(Edit1.Text);if Edit1.Text = '1'then Label1.Caption:= 'Январь';if Edit1.Text = '2'then Label1.Caption:= 'Февраль';if Edit1.Text = '3'then Label1.Caption:= 'Март';if Edit1.Text = '4'then Label1.Caption:= 'Апрель';if Edit1.Text = '5'then Label1.Caption:= 'Май';if Edit1.Text = '6'then Label1.Caption:= 'Июнь';if Edit1.Text = '7'then Label1.Caption:= 'Июль';if Edit1.Text = '8'then Label1.Caption:= 'Август';if Edit1.Text = '9'then Label1.Caption:= 'Сентябрь';if Edit1.Text = '10'then Label1.Caption:= 'Октябрь';if Edit1.Text = '11'then Label1.Caption:= 'Ноябрь';if Edit1.Text = '12'then Label1.Caption:= 'Декабрь';end;
end.  

Var   a: integer;begin  read(a);    if (a >= 1) and (a <= 31) then write(a,' ',1);  if (a >= 32) and (a <= 59) then write((a - 31),' ',2);  if (a >= 60) and (a <= 90) then write((a - 59),' ',3);  if (a >= 91) and (a <= 120) then write((a - 90),' ',4);  if (a >= 121) and (a <= 151) then write((a - 120),' ',5);  if (a >= 152) and (a <= 181) then write((a - 151),' ',6);  if (a >= 182) and (a <= 212) then write((a - 181),' ',7);  if (a >= 213) and (a <= 243) then write((a - 212),' ',8);  if (a >= 244) and (a <= 273) then write((a - 243),' ',9);  if (a >= 274) and (a <= 304) then write((a - 273),' ',10);  if (a >= 305) and (a <= 334) then write((a - 304),' ',11);  if (a >= 335) and (a <= 365) then write((a - 334),' ',12);  readln;  readlnend.