Практическое задание. Вам необходимо создать страницу которая:
1. в качестве названия вкладки содержит ваше имя и фамилию
2. Фон страницы залит зеленым цветом
3. Цвет текста на странице красный
4. Текст на странице:
Студент(ка) ФИО, Группа: ХХ ИТ ХХ, Специальность: НАЗВАНИЕ ВАШЕЙ
СПЕЦИАЛЬНОСТИ​

а) является носителем информации.

б) круглый.

var  n : integer; beginreadln (n); case n of1, 2, 12 : writeln ('зима'); 3, 4, 5 : writeln ('весна'); 6, 7, 8 : writeln ('лето'); 9, 10, 11 : writeln ('осень'); end; end.

3 носка,т.к. среди них точно есть пара(в числе 3 есть число 2)

var

  x: array[1..15]of integer;

  i,min,z: integer;

begin

  min: =32000;

  z: =0;

  for i: =1 to 15 do

  begin

  readln(x[i]);

  if x[i]> 0 then if x[i]< min then min: =x[i];

  if x[i]=0 then inc(z);

  end;

  writeln(min);

  writeln(z);

end.