Алгоритм просмотра содержимого файла

Получение-раскодирование-просмотр

Zadacha_1;
var a,b,c:integer; 
begin   
writeln (' введите число');
    readln(a);
    b:=a mod 10;
    a:=a div 10;
    c:=a mod 10;
    a:=a div 10;
    if (a = b) or (a=c) or (b = c)then writeln ('такие числа есть')
    else writeln('таких чисел нет');
  end.

zadacha_2;
var a:integer; 
begin   
writeln(' введите время в минутах');
    readln(a);
    a:=a mod 10;
   if ((a >= 0) and  (a <= 3)) or ((a > 5) and  (a <= 8))  then writeln('зелёный');   
   if ((a > 3) and  (a <= 5)) or ((a > 8) and  (a < 0))  then writeln('жёлтый');
end.

Const
  MAX_SIZE = 10;
 
var
  a: array[1..MAX_SIZE] of integer;
  i, size: integer;
 
procedure delete_odd_elements();
var i, j: integer;
begin
  i := 1;
  repeat
    if odd(a[i]) then
    begin
      dec(size);
      for j := i to size do
        a[j] := a[j + 1]
    end
    else inc(i);
  until i > size;
end;
 
begin
  writeln('Исходный массив: ');
  size := MAX_SIZE;
  for i := 1 to size do
  begin
    a[i] := random(100);
    write(a[i] : 3);
  end;
  delete_odd_elements;
  writeln;
  writeln('Полученный массив: ');
  for i := 1 to size do
    write(a[i] : 3);
end.