классе 271 ребят. Спортом занимаются - 126,
программированием - X, танцами – 139.Одновременно спортом
и программированием – 86, программированием и танцами -
91, танцами и спортом - 57. Ничем не занимаются - 39. Во всех
трех секцияX занимаются – 44

Лучше скачайте прикреплённый файл, так как здесь всё слилось))
1) varA, B: integer;beginreadln(A);readln(B);if (A>B) then writeln(A)else writeln(B);end.2)varA, B: integer;beginreadln(A);readln(B);if (A>B) then writeln(B)else writeln(A);end.3)varA, B: integer;beginreadln(A);readln(B);if (A>B) then  beginwriteln (A, ' - максимальное число');writeln (B, ' - минимальное число');end;if (B>A) then beginwriteln (B, ' - максимальное число');writeln (A, ' - минимальное число');end;end.4)varA, B, c, d: integer;beginreadln(A);readln(B);c:= A+2*B;d:= 3*A-B;if (c>d) then  writeln ('A+2B > 3A-B')else writeln ('3A-B > A+2B');end.
Воот))

Напишу сразу код, немного прокемментировал, но если взялись связать свою жизнь с информатикой, то нужно изучать это всё.

varF:array[0..16] of integer;i,i2:integer;schet:integer;
begin
schet:=0;
//заполнение массива согласно данным условиям
for i:=0 to 9 dof[i]:=1;
for i:=11 to 13 dof[i]:=1;
//создадим два отрицательных массива
f[10]:=-1;
F[14]:=-1;
//заполним вручную недостающие
f[15]:=1;
f[16]:=1;
for i:=0 to high(f) do begin  //начинаем цикл 
 if f[i]<0 then begin       //проверяем первое условик 
  if schet=0 then begin     
 inc(schet);     
 for i2:=0 to i do       
 f[i2]:=0;     
 end else     
if schet=1 then  //второе условие     
 for i2:=i to high(f) do         
 f[i2]:=0;   end;end;
//end for