паскаль группа

Ответ от Вячеслав Бердов[гуру]
1:var a:array[1..100]of integer;x,i,n,k:integer;beginread(n);k:=0;for i:=1 to n dobeginread(x);if(odd(x)) thenbegink:=k+1;a[k]:=x;end;end;write(k,':');for i:=1 to k do write(a:6);writeln;end.2:var a,k:integer;begink:=0;a:=1;while(a<>0) dobegin read(a); k:=k+1;end;k:=k-1;writeln(k);writeln;end.3:var a,k,n:integer;beginreadln(k);a:=1;n:=-maxint;while(a<>0) dobegin read(a); if(a>k)and(a>n)then n:=a;end;writeln(n);writeln;end.4:var n,i,a,a2:integer;bool:boolean;beginbool:=false;readln(n);read(a2);for i:=2 to n dobeginread(a);if(a<=a2) then bool:=true;a2:=a;end;writeln(not(bool));end.