[PASCAL] Più condizioni in un ciclo while()

[pallinopinco]

Program Test_Condizioni;

var a,b: integer;

begin
 a := 10; b := 5;
 while ((a > 0) AND (b > 0)) do
   begin
            dec(a);
	 dec(b);
	 writeln('A = ', a, ' B = ', b);
   end;
end.

Puoi combinare più condizioni con gli operatori AND ed OR.