Задание 5. Составьте программу, которая в первую строку выводит названия зимних месяцев, во вторую строку
весенних, в третью строку — летних и в четвертую стро-
ку названия осенних месяцев.​

1)“Все караси - рыбы”, “Интеллектуальная собственность охраняется законом”, “Все квадраты – равносторонние прямоугольники”.
2)“Ни один лев не есть травоядное животное”. Видим полную несовместимость субъекта и предиката. Объемы их полностью исключают друг друга.
3)“Некоторые студенты - спортсмены”. Здесь S и P – перекрещивающиеся понятия, их объемы совпадают частично.“Некоторые преступления являются должностными”: предикат подчинен субъекту. Объем предиката полностью входит в объем субъекта, объем субъекта лишь частично совпадает с объемом предиката. 
4)“Некоторые студенты не являются спортсменами” – часть объема субъекта входит в объем предиката, это перекрещивающиеся понятия.“Некоторые геометрические фигуры не являются треугольниками”: субъект и предикат – в отношении подчинения.

/Program granat;
Uses Crt;
var A: array [1..10] of integer;
i,k,x,z,vsp:integer;
begin
write ('Исходный массив:');
for i := 1 to 10 do begin
A[i]:=random(10); {Заполняем массив}Write (A[i]:3);end;
writeln;
begin
for k:=1 to 9 do
begin
x:=A[k];vsp:=k;
for i:=k+1 to 10 do
if a[i]<x then
begin
x:=A[i];vsp:=i;end;
if vsp>k then
begin
z:=a[k];a[k]:=a[vsp];a[vsp]:=z;end;end;end;
write ('Отсортированный массив:');for i := 1 to 10 doWrite (A[i]:3);writeln;
begin
for i:=1 to 10 do
if A[i] mod 2 = 0 then Write (A[i]:3);
end;end.