В первом пункте не хватает кавычек, ну и в условиях скобки не помешают то есть:
1) if (B=0) then writeln('Деление на нуль невозможно');
2) if (a > b) then max: = a else max: = b;
3) if (a>b) and (b>0) then c:=a+b else writeln(‘no’);
4) if (a < b) then min := a else min := b;
5) if (a > b) then max: = b else max: = a;
6) if ((a>b) and (b>0)) then c:=a+b ;
var
a,i,n,a1:integer;
begin
a1:=30000;
read(n);
for i:=1 to n do begin
read(a);
if (a<a1) and (a div 10 <10) and (a div 10 >1)and (a mod 2 = 0) then a1:=a;
end;
writeln(a1);
end.
var
b,x,c:real;
i,n,a:integer;
begin
x:=0;
b:=0;
read(n);
for i:=1 to n do begin
read(a);
if (a mod 7 = 0) or (a mod 3 = 0) then b:=b+a;
if (a mod 7 =0) or (a mod 3 = 0) then x:=x+1;
end;
c:=b/x;
writeln(c);
end.
var
a,b,x,i,n:integer;
begin
x:=0;
read(n);
for i:=1 to n do begin
read(a);
if (a mod 10 <>1) and (a mod 2 = 1) then x:=x+1;
end;
writeln(x);
end.
1) if B: = 0 then Writeln ('Деление на нуль невозможно');
2) if a > b then max: = a else max: = b;
3) if (a>b) and (b>0) then c:=a+b else (‘no’);
4) if a < b then min := a else min := b;
5) if a > b else max: = b then max: = a;
6) if a>b and b>0 then c:=a+b ;
вроде так