1. В папке с названием вашей группы создайте папку (имя папки = ваша фамилия и имя) 2. Создайте в своей папке две новых папки разными
3. В каждой из папок создайте по одному – два файла разными
4. Создайте ярлыки для любых папки и файла.
5. Скопируйте разными в одну из папок вашей папки графические файлы из папки Мои рисунки.
6. Переместите один из файлов в другую папку.
7. Переименуйте этот файл.
8. Скопируйте разными файлы, созданные при выполнении п.3 задания, из одной папки в другую.
9. Поместите любые два файла из вашей папки в Корзину.
10. Запишите результаты работы в отчет и удалите вашу папку.

Const
      CSize1=7;
      CSize2=6;
      CSize3=5;
type TMas=array[,] of integer;   
var
    A1:TMas;
    A2:TMas;
    A3:TMas;
    x, y:byte;

procedure zapoln(var T:TMas;Size:integer);
begin
var i,j:integer;
setlength(T,Size+1,Size+1);
for i:=1 to Size do
  begin
  for j:=1 to Size do
    begin
    T[i,j]:=random(50);
    write(T[i,j]:3);
    end;
  writeln;
  end;
writeln;
end;

function zero(T:TMas):integer;
var i,j,n:integer;
begin
n:=length(T,0)-1;
for i:=1 to n do
  for j:=1 to n do
    if T[i,j]=0 then result:=result+1;
end;

function interval(T:TMas):integer;
var i,j,n:integer;
begin
n:=length(T,0)-1;
for i:=1 to n do
  for j:=1 to n do
    if (1<=T[i,j]) and (T[i,j]<=12) then result:=result+1;
end;

begin
zapoln(A1,CSize1);
zapoln(A2,CSize2);
zapoln(A3,CSize3);
x:=zero(A1)+zero(A2)+zero(A3);
y:=interval(A1)+interval(A2)+interval(A3);
writeln('Kol-vo 0 =', x);
writeln('Kol-vo v intervale=', y);
end.

Не "теранарный", а тернарный оператор.
Есть во многих языках программирования, зря не указали, какой Вам надо.

// PascalABC.NET 3.3, сборка 1590 от 03.12.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('День недели (1- Пн, 2- Вт, ... 7- Вс:');
  Writeln(n<6?'Рабочий день':n=6?'Суббота':'Воскресенье')
end.

Примеры (предполагается без проверки корректность ввода)
День недели (1- Пн, 2- Вт, ... 7- Вс: 4
Рабочий день

День недели (1- Пн, 2- Вт, ... 7- Вс: 6
Суббота

День недели (1- Пн, 2- Вт, ... 7- Вс: 7
Воскресенье