Условие задания:
1F
Запиши математическое выражение
(11+t)* на языке Паскаль. (При записи
ответа используй прописные буквы).
ответ: СО(COCOt)

Var
  a, b, c, d: real;
begin
  write('Введите коэффициенты a,b,c ');
  readln(a, b, c);
  d := sqr(b) - 4 * a * c;
  if d = 0 then
    writeln('Корень один x = ', (-b / (2 * a))
    else if d >0 then
      writeln('x1 = ',(-b + sqrt(d)) / (2 * a), ' x2 = ',(-b - sqrt(d)) / (2 * a))
    else writeln('Действительных корней нет');
end.

Тест №1

Введите коэффициенты a,b,c 1 -5 6
x1 = 3 x2 = 2

Тест №2

Введите коэффициенты a,b,c 1 2 3
Действительных корней нет

Тест №3

Введите коэффициенты a,b,c 1 0 0
Корень один x = 0

Лучше всего, если ты обратишься к конспектам, так как подсиситем множество. Например: 

подсистема защиты периметра сети
подсистема обеспечения безопасности межсетевых взаимодействий
подсистема мониторинга и аудита безопасности
подсистема обнаружения и предотвращения атак
подсистема резервного копирования и восстановления данных
подсистема анализа защищенности и управления  политикой безопасности
подсистема контроля целостности данных
криптографическая подсистема
инфраструктура открытых ключей;подсистема защиты от вредоносного ПО
подсистема фильтрации контента и предотвращения утечки конфиденциальной информации
подсистема установки обновлений ПО
подсистема администрирования безопасности.