Для какого наименьшего целого неотрицательного числа А выражение тождественно истинно при любых целых неотрицательных x и Y (3x+2y<=A)+(y<=x)+(13>Y)

Program z;

var
p,s,n,m:integer;
a:array [1..10,1..10] of integer;

begin     
writeln('Введите кол-во столбцов');     
readln(n);     
writeln('Введите кол-во строк');     
readln(m);     
writeln('Ввод матрицы');     
for var i:=1 to n do         
   for var j:=1 to m do             
   begin                 
      write('a[',i,',',j,']=');                 
      readln(a[i,j]);             
   end;     
writeln('Вывод матрицы');     
for var i:=1 to n do         
begin             
    for var j:=1 to m do                 
       write(a[i,j],' ');             
    writeln;         
end;     
s:=0;      
for var i:=1 to n do         
   for var j:=1 to m do           
begin                 
s:=s+a[i,j];           
end;   
p:=0;   
for var i:=1 to n do     
   for var j:=1 to m do       
      if a[i,j] mod 5 = 0   then       
begin             
inc(p);       
end;    
writeln('Сумма элементов - ',s);     
writeln('Кол-во элементов, кpатных 5 - ',p);
end.

Собственно, здесь нет ничего удивительного. Как и в любой сфере, связанной с чем то, где требуется какой то образец для начинающих всегда требуется в данном случае это шаблон.Потому что, существуют определенные рамки,правила, Уставы, Законы того или иного общества, сообщества. Если это будет отсутствовать , то это уже будет сфера не профессиональная, а на уровне дилетанства.Ни одна сфера деятельности этого не потерпит. Поэтому, все верно, залогом правильности, верности, образца и хорошей дальнейшей деятельности служит макет, ШАБЛОН.